Question

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

Answer 1

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.