MIKROPROTSESSORNING TUZILISHI

                                           Тажриба иши-7

А(N,M) Матритсанинг энг катта кийматини ва жойлашган урнини аникланг.

N-катор

M-устун

uses crt;

var i,j,t,l,n,m,k:integer;

a:array[1..10,1..10]of real;

max:real;

begin

k:=0;

write('qatorlar soni n=');

readln(n);

write('ustunlar soni m=');

readln(m);

for i:=1 to n do

for j:=1 to m do

begin

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

readln(a[i,j]);

end;

max:=a[1,1];

t:=1;

l:=1;

k:=k+1;

for i:=1to n do

for j:=1to m do

if a[i,j]>max then begin max:=a[i,j]; t:=i; l:=j; end;

writeln('massivning maksimal elementi:=',max);

writeln('massivning joylashgan a[',t,',',l,']');

end.