Question

ПАСКАЛЬ!!! создать массив 5х6 целых чисел из диапазона [1;10] вывести его на экран. Найти количество и произведение нечетных элементов последней строкиВот код программы, где ошибка?!program p1;uses crt;const n=5; m=6;var a:array [1..n,1..m] of integer;i,j,p,k: integer;beginrandomize;clrscr;writeln('Данный массив');for i:=1 to n do beginfor j:=1 to m do begina[i,j]:=random(10)+1;write(a[i,j]:4);end;writeln;end;p:=1;writeln('Полученный массив');for i:=1 to n do beginif a[5,j] mod 2=1 then p:=p*a[5,j];                       inc(k);writeln('Произведение = ',p);writeln('Колличество =',k);readln;end;end.

Answer 1

Как минимум тут:
for i:=1 to n do begin
if a[5,j] mod 2=1 then p:=p*a[5,j];
в цикле счетчик I, а массив проверяет по j

Answer 2

Измени вот этот фрагмент следующим образом:
writeln('Полученный массив');
for j:=1 to m do
  begin
  if a[5,j] mod 2=1 then
    begin
    p:=p*a[5,j];
    inc(k);
    end;
  end;
writeln('Произведение = ',p);
writeln('Количество =',k);

Все будет работать как надо.