Блок-схема - в прилагаемом файле.
const n=5;
var
a:array[1..n,1..n] of integer;
i,j,min,imin,jmin:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(100);
write(a[i,j]:4);
end;
writeln;
end;
min:=a[1,2]; imin:=1; jmin:=2;
for i:=1 to n do
for j:=i+1 to n do
if a[i,j]writeln('min = a[',imin,',',jmin,'] = ',min);
end.
Пример:
Исходный массив:
89 93 3 59 57
15 57 5 65 85
8 5 60 95 17
83 67 21 20 93
30 96 53 26 17
min = a[1,3] = 3
