Заполнить матрицу из 8 строк и 5 столбцов случайными числами в интервале [-10,10] и вывести ее на экран. Вывести на экран строку, произведение элементов которой максимально. Формат вывода: Строка 2: 3 5 8 9 8

Var mas: array [1 ... 8,1 ... 5] of integer;

i, j, max, k, s:integer;

begin

Randomize;

for i:=1 to 8 do

begin

for j:=1 to 5 do

begin

mas[i, j]:=random (21) - 10;

write (mas[i, j]:4) ;

end;

writeln;

end;

for i:=1 to 8 do

begin

s: = 1;

for j:=1 to 5 do

s: = s * mas[i, j];

if (i=1) or (s>max)

then

begin

k: = i;

max: = s;

end; end; write ('Строка ', k, ': ') ; for j:=1 to 5 do

write (mas[k, j]:4) ;

writeln;

end.