Очень срочно!!! Помогите, пожалуйста=))

Question

Очень срочно!!! Помогите, пожалуйста=))

---

Answer 1

5. Program proisvednechet; Val: a: array[1..100] of integer; p: integer; Begin Write (СКОЛЬКО ЭЛЕМЕНТОВ? '); Readhi (n); P:=1; For i=1 to ii do begin a[i]:= Random(46)-19; wnteln (a[i],"); if i mod 2 o 0 then P=P*a[i]; end; Writehi(ПРОИЗВЕДЕНИЕ  ЭЛЕМЕНТОВ С НЕЧЕТНЫМИ НОМЕРАМИu:', P); End. 

Comments

3
var a:array [1..10] of integer;
i,j:byte;
begin
randomize;
for i:=1 to 10 do begin
a[i]:=random(30);
write(a[i],' ');
end;
writeln;
writeln('номера нечётных элементов');
j:=0;
for i:=1 to 10 do
if a[i] mod 2<>0 then begin
write(i,' ');
inc(j);
end;
writeln;
writeln('кол-во нечётных элементов');
writeln(j);
readln
end.