O`zbеkiston rеspublikasi oliy va o`rta maxsus ta'lim

8) program pasc;
var a:array [1..200] of real; i,j,k,l,n,mi,mj,ni,nj: integer; min,max: real; p,q: boolean; function xt(i:integer):real; begin xt:=a[2*i-1] end; function yt(i:integer):real; begin yt:=a[2*i] end; function dl(i,j:integer): real; begin dl:=sqrt(sqr(xt(i)-xt(j))+sqr(yt(i)-yt(j))) end;begin readln(n); for i:=1 to n do begin write('x[',i,']='); readln(a[2*i-1]); write('y[',i,']='); readln(a[2*i]) end; q:=true; max:=dl(1,2); mi:=1; mj:=2; min:=dl(1,2); ni:=1; nj:=2; for i:=1 to n-1 do for j:=i+1 to n do begin if maxdl(i,j) then begin min:=dl(i,j); ni:=i; nj:=j; end end; writeln(mi,'-',mj); writeln( ni, '-', nj ) end.
9) program pasc;
var a:array[1..100] of integer;
i,n:integer; begin readln(n); for i:=1 to n do begin write('a[',i,']='); readln(a[i]) end; for i:=1 to n div 2 do writeln (a[i],' ', a[(n div 2)+i])end.


10) program pr;
var a:array [1..100,1..100] of integer;
i,j,n:integer; c: integer; begin readln(n); for i:=1 to n do for j:=1 to n do
begin readln(a[j,i]); end; for i:=1 to n do begin for j:=1 to n do write(a[i,j]:3); writeln; end; for i:=1 to n do for j:=1 to n do begin c:=a[i,j]; a[i,j]:=a[j,i]; a[i,j]:=c; end; for i:=1 to n do begin for j:=1 to n do
write(a[i,j]:3); writeln end; end.


11) program prog;
var a:array[1..30,1..30] of integer;
i,j,n:integer; begin readln(n); for i:=1 to n do for j:=1 to n do
if i=j then a[i,j]:=n-j+1 else a[i,j]:=0; for i:=1 to n do
begin for j:=1 to n do write(a[i,j]:3); writeln end end.


12) program pasc;
var a:array[1..30,1..30] of integer;
i,j,n,k,m,max,at:integer; begin readln(n); readln(m); for i:=1 to n do
for j:=1 to n do begin readln(a[i,j]) end;
for i:=1 to n do begin for j:=1 to n do write(a[i,j]:4); writeln end; max:=1; for i:=1 to n do if a[max,max]then max:=i; for i:=1 to n do begin at:=a[m,i]; a[m,i]:=a[max,i]; a[max,i]:=at end; for i:=1 to n do begin for j:=1 to n do write(a[i,j]:4); writeln end end.