Вот набросал.
| Код |
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var a:array [1..3,1..3] of integer;
i,j,b:integer;
begin
{ TODO -oUser -cConsole Main : Insert code here }
write('===============Vvod===============');
writeln;
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
writeln;
write('a[',i,',',j,']=');
readln(a[i,j]);
end;
end;
writeln;
write('===============Vyvod obychniy==============');
writeln;
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
write(a[i,j]:4);
end;
writeln;
end;
for i:=1 to 3 do
begin
b:=a[i,3];
a[i,3]:=a[i,1];
a[i,1]:=b;
end;
writeln;
write('===============Vyvod preobrazovannyi===============');
writeln;
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
write(a[i,j]:4);
end;
writeln;
end;
readln;
end.
|
|