Заполнить матрицу из 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;beginRandomize;for i:=1 to 8 dobeginfor j:=1 to 5 dobeginmas[i,j]:=random(21)-10;write(mas[i,j]:4);end;writeln; end;for i:=1 to 8 dobegins:= 1;for j:=1 to 5 dos:= s * mas[i, j];if (i=1) or (s>max)thenbegink:= i;max:= s;end;end;   write('Строка ', k, ': ');for j:=1 to 5 dowrite(mas[k,j]:4);writeln;end.