Правила форума
Прочтите прежде чем задавать вопрос!
Дан двумерный массив действительных чисел размером NxN. Поменять местами строки с номерами 1 и 3, 4 и 6, 7 и 9 и т. д.
Сама программа:
uses crt;
const n=9;
type mas=array [1..n,1..n] of integer;
procedure vvod(var m:mas);
var j,i:integer;
begin
for i:=1 to n do
for j:=1 to n do
m[i,j]:=random(15);
end;
procedure vivod(var m:mas);
var i,j:integer;
begin
for i:=1 to n do
begin
for j:=1 to n do
write(m[i,j]:3);
writeln;
end;
writeln;
end;
procedure ssort (var m:mas);
var j,i,k,p,d:byte;
begin
k:=3; i:=1;
while k <= n do
begin
for j:=1 to n do
begin
p:=m[i,j];
m[i,j]:=m[k,j];
m[k,j]:=p;
end;
i:=i+k;
k:=k+k;
end;
end;
var m:mas;
begin
randomize;
ClrScr;
vvod(m);
vivod(m);
ssort(m);
vivod(m);
readln;
end.
