GAECHKA
Твоя помощница в решении задач

Как найти последнее мин и макс на главной диагонали

Дан двумерный массив.Найти произведение минимального элемента последней строчки и максимальный на главной диагонали
0
вопрос задан

Источник


1 ответ
Uses Crt;
const
n=5;
var
a: array [1..n,1..n] of integer;
mn,mx,i,j:integer;
begin
for i:=1 to n do 
for j:=1 to n do 
a[i,j]:=random(11);
for i:=1 to n do begin
for j:=1 to n do 
write(a[i,j]:4);
writeln; end;
mn:=a[n,1];
for j:=1 to n do begin
if a[n,j]then begin
mn:=a[n,j]; end; end;
writeln('min el pos srt=',mn);
mx:=a[1,1];
for i:=1 to n do begin
for j:=1 to n do
if (i=j) and (a[i,j]>mx) then begin
mx:=a[i,j]; end; end;
writeln('max el glav diag=',mx);
writeln('ih proisvedenie=',mn*mx);
end.