O ’z b e k ist o n r e sp u b L ik a si o L iy va o ’r t a m a X su s t a ’lim V a z ir L ig I o ’zbek jsto n r e sp u b L ik a si

Var M: array! 1.. Ю/ of Bl;
Ag a r
D -
A 'ta satr va 
M
ta ustundan ham da har bir elem enti butun sonlardan 
tashkil to p g an m atritsa b o 'ls a , u ikki o ic h o v li m assiv k o 'rin ish d a quyidagicha 
aniqlanadi:
Var 
D: array/1..N,1..MJ o f integer;
Endi m assivlarni aniqlashga, va ular u stida am allar b ajarish g a doir m isollar 
k o 'rib chiqaylik.
M iso l: a) 
X(xt,x2,...,x2i)
v ek to r elem entlarini o 's is h tartib id a jo y lash tirish g a 
dastur tu zin g .
b ) 
.4(5,8) 
m atritsani 
S( 8, 8) 
m atritsaga k o 'p ay tirish d an hosil b o 'lg a n m atrit- 
sani a n iq lash g a d astu r tuzing.
Y ech ish . a) 
Program XV;
Var X: array/1.. 25/ of real;
*
P:real; I,J,K:Integer;
Begin
For 1=1 to 25 do read(X[I/);
For I:=l to 25 do 
Begin
K:=I;
For J:=I+1 to 25 do 
IfXIJI
P:=X/1J; X/1/:=X/K/; X/K/:=P;
H'riteln(X/lJ);
End;
End.
b ) 
Program AXB;
Var A,C: array 11.. 5,1..8I o f real;
«.
B: array/1.. 8,1..8/ of real; I,J,K: integer;
Begin
For 1:=1 to 5 do For J:=l to 8 do read(A/I,J/);
For I:=l to 8 do For J:=l to 8 do read(B/l,J]);
For I:=l to 5 do For J:=l to 8 do 
Begin C/l,J/:=0;
For K;=l to 5 do 
С 11,JI:=C/I,JI+A/I, К/*В/K,JJ
End;
F orI:= lto5 
do 
Begin Writeln;
For J:=l to 8 do 
И rite(C[l,J/: 10:4)
End; End.
3 6