Question

Найти минимальный элемент в квадратной матрице и заменить его первым элементом

Answer 1

program xxx;

var

i,j,is,js, m:integer;

a:array[1..5,1..5] of integer;

begin

randomize;

for i:=1 to 5 do

for j:=1 to 5 do

a[i,j]:=random(100);

m:=a[1,1];

for i:=1 to 5 do

for j:=1 to 5 do

if a[i,j] < m then begin

                   m:=a[i,j];

                   is:=i;

                   js:=j;

                   end;

a[is,js] := a[1,1];

end.