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

Блок-схема - в прилагаемом файле.const n=5;vara:array[1..n,1..n] of integer;i,j,min,imin,jmin:integer;beginRandomize;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  17min = a[1,3] = 3