Написать программу на паскаль:Найти произведение наибольших элементов двумерного массива, первый элемент которого отрицателен.
Написать программу на паскаль:
Найти произведение наибольших элементов двумерного массива, первый элемент которого отрицателен.
Гость
Ответ(ы) на вопрос:
ГостьЕсли имеется в виду произведение наибольших в каждой строке элементов, то тогда так:
var
i,j,p:integer;
max:array[1..5]of integer;
a:array[1..5,1..5]of integer;
begin
p:=1;
for i:=1 to 5 do
for j:=1 to 5 do
a[i,j]:=random(-10,10);
a[1,1]:=random(-10,-1);
for i:=1 to 5 do
begin
for j:=1 to 5 do
begin
write(a[i,j]:4);
if a[i,j]>max[i] then max[i]:=a[i,j];
end;
p:=p*max[i];
writeln;
end;
writeln('P=',p);
end.
Не нашли ответ?
Похожие вопросы