Заполнить матрицу из 8 строк и 5 столбцов случайными числами в интервале [-10,10...

August 2021 1 5 Report

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

Answers & Comments

Arakaari 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.

2 votes Thanks 1

Япошёл Это при сумме в строке,а мне надо в произведении!

Arakaari Извиняюсь, исправила.

Япошёл Большое человеческое спасибо!

Answers & Comments

рекомендуемые вопросы

Helpful Links

Helpful Social