Контрольная работа: Розробка алгоритмів та складання програм на мові програмування MS VisualBasic for Application

begin

write('r[',i,',',j,']=');

readln(r[i,j])

end;

writeln;

for i:=1 to k do

begin

for j:=1 to n do write(r[i,j]:3);

writeln

end;

max:=r[1,1];

x1:=1;y1:=1;

for i:=1 to k do

for j:=1 to n do

if r[i,j]>max then

begin

max:=r[i,j];

x1:=i;y1:=j

end;

min:=r[1,1];

x2:=1;y2:=1;

for i:=1 to k do

for j:=1 to n do

if r[i,j]<min then

begin

min:=r[i,j];

x2:=i;y2:=j

end;

writeln;