const n=4; m=5; type mas=array[1..10,1..10] of integer; var a,b:mas; i,j,k,x,y:integer; procedure sort(k:integer; var z: mas; t:integer); var r,x,y:integer; begin for x:=1 to t-1 do for r:=x+1 to t do begin if z[k,x]<z[k,r] then begin y:=z[k,x]; z[k,x]:=z[k,r]; z[k,r]:=y; end; end; end; procedure print_mas(z:mas; t:integer); var i,j:integer; begin for i:=1 to t do begin for j:=1 to t do write(z[i,j]:4); writeln; end; end; begin randomize; for i := 1 to n do for j := 1 to n do begin a[i,j]:=50-random(100); end; for i := 1 to m do for j := 1 to m do begin b[i,j]:=50-random(100); end; writeln('Massiv A'); print_mas(a,n); writeln('Massiv B'); print_mas(b,m); for i:=1 to n do begin j:=n+1-i; {проверяем условие} if a[i,j]<a[i,n] then begin {меняем местами эти элементы} k:=a[i,j]; a[i,j]:=a[i,n]; a[i,n]:=k; end else begin {сортируем строку по убыванию} sort(i,a,n); end; end; for i:=1 to m do begin j:=n+1-i; {проверяем условие} if b[i,j]<b[i,n] then begin {меняем местами эти элементы} k:=b[i,j]; b[i,j]:=b[i,n]; b[i,n]:=k; end else begin {сортируем строку по убыванию} sort(i,b,m); end; end; writeLn('Massiv A'); print_mas(a,n); writeln('Massiv B'); print_mas(b,m); readln; end. |