Developing.ru

Код: Выделить всё

program pr1;
var a,b:array[1..15,1..15] of real; i,n,j:integer; c,d:real;
begin
randomize;
writeln('Vvedite n');
repeat
readln(n);
until n mod 2=0;
 for i:=1 to n do begin
 for j:=1 to n do
  begin
  a[i,j]:=random(20);
  write(a[i,j]:4:0);
  end;
  writeln;
  end;
 for i:=1 to n do
 for j:=1 to n do
  begin
  b[i,j+1]:=a[i,j];
  b[i,j]:=a[i,j+1];
  a[i,j]:=b[i,j];
  a[i,j+1]:=b[i,j+1];
  j:=j+1;
  end;
 for i:=1 to n do
 begin
  for j:=1 to n do
  begin
      write(a[i,j]:5:0);
  end;
   writeln;
 end;
 readln;
  end.

Код: Выделить всё

uses crt;
type mass=array[1..50,1..50] of integer;
var a,b:mass;
i,j,n:byte;
buf:integer;

 procedure WriteMass(massiv:mass);
 var ip,jp:byte;
 begin
 for ip:=1 to n do
  begin
    writeln;
    for jp:=1 to n do
    write(massiv[ip,jp],' ');
  end;
 end;

 begin
 clrscr;
 writeln('Zadaite razmernost massiva: ');
 readln(n);
 writeln('Vvodite elementy: ');
 for j:=1 to n do
  begin
   clrscr;
   writeln('Stolbec #',j);
   for i:=1 to n do
    begin
     write('Stroka ',i,' : ');
     readln(a[i,j]);
    end;
  end;
 for j:=1 to n do
 for i:=1 to n do
 if (j mod 2 = 0) then
  begin
   b[i,j-1]:=a[i,j];
   b[i,j]:=a[i,j-1];
  end
  else b[i,j]:=a[i,j];
  clrscr;
  writeln('ISHODNYI MASSIV');
  WriteMass(a);
  writeln;
  readln;
  writeln('RESULTIRUIUSCHII MASSIV');
  WriteMass(b);
  readln;
end.