Question

Индексы минимального из элементов массива расположенных выше главной диагонали Массив двумерный!!! ПАСКАЛЬ С блок схемой

Answer 1

Блок-схема - в прилагаемом файле.
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]<min then begin min:=a[i,j]; imin:=i; jmin:=j; end;
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