Размещено 5 лет назад по предмету
Информатика
от Evgesha01
ПАСКАЛЬ!!! создать массив 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; begin randomize; clrscr; writeln('Данный массив'); for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(10)+1; write(a[i,j]:4); end; writeln; end; p:=1; writeln('Полученный массив'); for i:=1 to n do begin if a[5,j] mod 2=1 then p:=p*a[5,j]; inc(k); writeln('Произведение = ',p); writeln('Колличество =',k); readln; end; end.