помогите срочнооо) pascal abc 1. Развернуть обе половинки массива в обратном порядке. Считая, что массив имеет четное число элементов.

+ 0 -

Verynika2209

28 июля 2013 г., 4:08:03 (10 лет назад)

Во всех программах у меня будет использоваться процедура swap:

procedure swap(a: ^real; b: ^real);
var
   t: real;
begin
   t := a^;
   a^ := b^;
   b^ := t;
end;

swap(x,y) - меняет местами значения x и y.

1.

var
   A: array[1..100] of real;
   i, j, N: integer;

begin

   readln(N);
   for i := 1 to N do
      read(A[i]);
   for j := 1 to (N div 2) - 1 do
      for i := 1 to (N div 2) - j do
         swap(A[i], A[i + 1]);
   for j := 1 to (N div 2) - 1 do
      for i := (N div 2) + 1 to N - j do
         swap(A[i], A[i + 1]);
   for i := 1 to N do
      writeln(A[i])
end.

2.

var
   A: array[1..100] of real;
   i, N: integer;

begin

   readln(N);
   for i := 1 to N do
      read(A[i]);
   for i := 1 to N - 1 do
      swap(A[i], A[i + 1]);
   for i := 1 to N do
      writeln(A[i])
end.

3.

var

   A: array[1..100] of real;
   i, N: integer;

begin

   readln(N);
   for i := 1 to N do
      read(A[i]);
   for i := N downto 2 do
      swap(A[i], A[i - 1]);
   for i := 1 to N do
      writeln(A[i])
end.