Паскаль абс написать программу вычисления произведения положительных элементов третьей строки двумерного массива целых чисел паскаль абс

Решение задачи:

var i, j: byte;

a: array[1 ... 100,1 ... 100] of integer;

n, k, pr: integer;

begin

write ('Введите размерность n (n>=3) : ');

readln (n);

randomize;

k:=0;

for i:=1 to n do

begin

for j:=1 to n do

begin

a[i, j]:=random (9) - 4;

write (a[i, j]:5);

if (i=3) and (a[i, j]>0) then k:=k+1;

end;

writeln;

end;

writeln;

if k=0 then write ('Ответ: в третьей строке массива нет положительных элементов.')

else begin

pr:=1;

for j:=1 to n do if (a[3, j]>0) then pr:=pr*a[3, j];

writeln ('Ответ: произведение положительных элементов третьей строки = ', pr);

end;

end.