Заполнить матрицу из 8 строк и 5 столбцов случайными числами в интервале [-10,10] и вывести ее на экран.Вывести на экран строку, произведение элементов которой максимально. Формат вывода: Строка 2: 3 5 8 9 8
Ответы
Ответ дал:
0
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.
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.
Ответ дал:
0
Это при сумме в строке,а мне надо в произведении!
Ответ дал:
0
Извиняюсь, исправила.
Ответ дал:
0
Большое человеческое спасибо!
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад