Массив. В квадратном массиве обменять верхний треугольник
uses wincrt;
const nmax=10;
var a: array [1..nmax,1..nmax] of integer;
i,n,j: byte;
buf,v_min, v_max,temp: integer;
begin
randomize;
repeat
write ('Razmer matrici,n=');
readln
;
until n in [1..n];
writeln('Ishodnay matrica:');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(20);
write(a[i,j]:4);
end;
writeln;
end;
For i:= 1 to n do
For j:= 1 to n div 2 + 2 do
If ((j>i)and(i+j-1<n))or((i<j)and(i+j-1>n))
Then
Begin
temp:=a[i,j];
a[i,j]:=a[j,n-i+1];
a[j,n-i+1]:=temp;
end;
writeln('Polychennaya matr');
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:4);
writeln;
end;
end.
uses wincrt;
const nmax=10;
var a: array [1..nmax,1..nmax] of integer;
i,n,j: byte;
buf,v_min, v_max,temp: integer;
begin
randomize;
repeat
write ('Razmer matrici,n=');
readln
;until n in [1..n];
writeln('Ishodnay matrica:');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(20);
write(a[i,j]:4);
end;
writeln;
end;
For i:= 1 to n do
For j:= 1 to n div 2 + 2 do
If ((j>i)and(i+j-1<n))or((i<j)and(i+j-1>n))
Then
Begin
temp:=a[i,j];
a[i,j]:=a[j,n-i+1];
a[j,n-i+1]:=temp;
end;
writeln('Polychennaya matr');
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:4);
writeln;
end;
end.
