Дана целочисленная прямоугольная таблица размером m*n. Заменить все строки таблицы на строку с максимальным произведением элементов. Паскаль.
Дана целочисленная прямоугольная таблица размером m*n. Заменить все строки таблицы на строку с максимальным произведением элементов. Паскаль.
Гость
Ответ(ы) на вопрос:
Гостьconst
m=10;
n=6;
var
a:array[1..m,1..n] of integer;
i,j,maxr:integer;
p,maxp:longint;
begin
Randomize;
Writeln('Исходный массив');
maxp:=0;
for i:=1 to m do
begin
p:=1;
for j:=1 to n do
begin
a[i,j]:=Random(99)+1; { интервал [1..99] }
Write(a[i,j]:3);
p:=p*a[i,j]
end;
if maxp
Не нашли ответ?
Похожие вопросы