Автор: Anton

Anton — Fri, 17 Nov 2017 06:22:02 +0000

В ответ на S. К сожалению пока нет.

Автор: S

Fri, 17 Nov 2017 05:52:58 +0000

А на С++ нету решения??

Автор: Kirk

Kirk — Sun, 14 May 2017 12:11:05 +0000

program m99;

type 
 matrix = array [1..10,1..10] of real;
 
var
 a: matrix;
 m,i,j,k: integer;
 x: real;

begin
randomize;
 m:=random(8)+2;
 writeln('M=',m);
 writeln();
 for i:=1 to m do
  begin
   for j:=1 to m do
    begin
     a[i,j]:=random*10;
     write(a[i,j]:6:2);
    end;
   writeln();
  end;
 writeln();
 
 for i:=1 to m div 2 do
  for j:=i to m-i do
   begin
    x:=a[i,j];
    a[i,j]:=a[j,m-i+1];
    a[j,m-i+1]:=a[m-i+1,m-j+1];
    a[m-i+1,m-j+1]:=a[m-j+1,i];
    a[m-j+1,i]:=x;
   end;
   
 for i:=1 to m do
  begin
   for j:=1 to m do write(a[i,j]:6:2);
   writeln();
  end;
end.

program m99;

type

matrix = array [1..10,1..10] of real;

var

a: matrix;

m,i,j,k: integer;

x: real;

begin

randomize;

m:=random(8)+2;

writeln('M=',m);

writeln();

for i:=1 to m do

begin

for j:=1 to m do

begin

a[i,j]:=random*10;

write(a[i,j]:6:2);

end;

writeln();

end;

writeln();

for i:=1 to m div 2 do

for j:=i to m-i do

begin

x:=a[i,j];

a[i,j]:=a[j,m-i+1];

a[j,m-i+1]:=a[m-i+1,m-j+1];

a[m-i+1,m-j+1]:=a[m-j+1,i];

a[m-j+1,i]:=x;

end;

for i:=1 to m do

begin

for j:=1 to m do write(a[i,j]:6:2);

writeln();

end;

end.

Комментарии: Решаем задачи Абрамян на Паскале. Matrix99

Автор: Anton

Автор: S

Автор: Kirk