Поделиться
Тажриба иши-7.docx
Тажриба иши-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.
![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.](https://fs.znanio.ru/d5af0e/3b/9e/ca91ce772ba73349476616762e7d1b4adc.jpg)
Материалы на данной страницы взяты из открытых источников либо размещены пользователем в соответствии с договором-офертой сайта. Вы можете сообщить о нарушении.
