Прошу, проверьте задачу, очень срочно нужно.

[Imm0rtal]

Прошу, проверьте задачу, очень срочно нужно.

Написать программу, которая подсчитывает количество нечетных элементов массива, заданного датчиком случайных чисел. Количество элементов в массиве [1..30],диапазон значений (20..100).
var
a:array[20..100] of integer;
i,n,p:integer;
Begin
write('bb n');readln;
P:=1;
For i:=20 to 100 begin
a:=random(31)-1;
writeln (a);
if i mod 2<>0 then P:=P*a;
end;
writeln('Произведение элементов с нечетными номерами:',P);
readln;
END.

 

[MakOS]

var
a:array[1..30] of integer;
i,n,p:integer;
Begin
n:=0;
P:=1;
For i:=1 to 30 begin
a:=21+random(78);
writeln (a);
if i mod 2<>0 then n:=n+1; P:=P*a;
end;
writeln(' количество нечетных элементов: ',n);
writeln('Произведение элементов с нечетными номерами:',P); <-если нужно произведение то оставь а если только количество то убери
readln;
END.

вроде так

 

[Vladimir_S]

var
a:array[1..30] of integer;
i,n,p:integer;
Begin
n:=0;
P:=1;
For i:=1 to 30 begin
a:=21+random(78);
writeln (a);
if i mod 2<>0 then n:=n+1; P:=P*a;
end;
writeln(' количество нечетных элементов: ',n);
writeln('Произведение элементов с нечетными номерами:',P); <-если нужно произведение то оставь а если только количество то убери
readln;
END.

вроде так

Не совсем так. Есть ошибки. И, увы, немало. "Так" будет так:

var
 a:array[1..30] of integer;
 i,j,n:integer;
 P:Extended;
Begin
 Randomize;
 n:=0;
 P:=1;
 For i:=1 to 30 do 
   a[i]:=20+random(81);
 For i:=0 to 2 do
   begin
     For j:= 1 to 10 do write (a[i*10+j]:4);
     writeln;
   end;
 For i:=1 to 30 do
  if i mod 2>0 then 
   begin
    n:=n+1; 
    P:=P*a[i];
   end;
 writeln(' количество нечетных элементов: ',n);
 writeln('Произведение элементов с нечетными номерами:',P);
 readln;
END.

Если верить условию, что ДЕЙСТВИТЕЛЬНО необходимо найти произведение всех членов массива с нечетными номерами, то число это столь велико, что даже формат LongInt не спасает, и приходится переходить на Extended. Впрочем, подозреваю, что поиск произведения - самодеятельность, поскольку в условии задачи об этом ничего нет.

 

[AlexZir]

Действительно, зачем вам искать произведение? Это ведь не задано в условии задачи!