MIKROPROTSESSORNING TUZILISHI
Оценка 5 (более 1000 оценок)

MIKROPROTSESSORNING TUZILISHI

Оценка 5 (более 1000 оценок)
docx
21.02.2020
MIKROPROTSESSORNING TUZILISHI
Тажриба иши-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.


 

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

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

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.
скачать по прямой ссылке
сегодня при записи на курсы переподготовки
для учителей