Технический форум

Цитата:

Сообщение от Chelios_rus (Сообщение 985592)

дан двумерный массив 5*8. поменять местами 2 и 4 строки.

Код:

type

 vector=Array[1..8] of integer;

var

 A:array[1..5] of vector;

 D:vector;

 i,j:integer;

begin

 for i:=1 to 5 do

  begin

   for j:=1 to 8 do

    begin

     write('A[',i,'][',j,']= ');

     readln(A[i][j]);

    end;

  end;

 writeln;

 writeln('Initial array:');

 for i:=1 to 5 do

  begin

   for j:=1 to 8 do

    write(A[i][j]:4);

   writeln;

  end;

 writeln;

 D:=A[2];

 A[2]:=A[4];

 A[4]:=D;

 writeln('New array:');

 for i:=1 to 5 do

  begin

   for j:=1 to 8 do

    write(A[i][j]:4);

   writeln;

  end;

 readln

End.