Программа вивантажується з оперативної пам яті і припиняє свою роботу ,якщо? - id666603520210319 от Papitto 19.03.2021 06:35

Question

Информатика: Программа вивантажується з оперативної пам яті і припиняє свою роботу ,якщо?

Papitto · Accepted Answer

{1}

const
n = 6;
var
a:array[1..n,1..n] of integer;
i,j:integer;
t:integer;

begin
for i := 1 to n do
for j := 1 to n do
read(a[i,j]);

for j := 1 to n div 2 do
for i := 1 to n do
begin
t := a[i,j];
a[i,j] := a[i,n+1-j];
a[i,n+1-j] := t;
end;

for i := 1 to n do
begin
writeln;
for j := 1 to n do
write(a[i,j],' ');
end
end.

{2}

const
n = 6;
var
a:array[1..n,1..n] of integer;
i,j:integer;
t:integer;

begin
for i := 1 to n do
for j := 1 to n do
read(a[i,j]);

for i := 1 to n do
for j := i+1 to n do
begin
t := a[i,j];
a[i,j] := a[j,i];
a[j,i] := t;
end;

for i := 1 to n do
begin
writeln;
for j := 1 to n do
write(a[i,j],' ');
end
end.

Программа вивантажується з оперативної пам'яті і припиняє свою роботу ,якщо?

MOGZ ответил