Ðåâåðñ ìàññèâà

 Ïðîãðàììà ê ó÷åáíèêó èíôîðìàòèêè äëÿ 10 êëàññà Ê.Þ. Ïîëÿêîâà è Å.À. Åðåìèíà. Ãëàâà 8. Ïðîãðàììà № 39.

 Âõîä: 

   1 

   2

   3 

   4 

   5

 Ðåçóëüòàò: Ïîñëå ðåâåðñà:  5 4 3 2 1

program arrReverse;

const N = 5;

var A: array[1..N] of integer;

    i, c: integer;

begin

  writeln ( 'Ââåäèòå ýëåìåíòû ìàññèâà:' );

  for i:=1 to N do

    read ( A[i] );

  for i:= 1 to N div 2 do 

               begin

                    c:= A[i];

                    A[i]:= A[N+1-i];

                    A[N+1-i]:= c

                  end;

  writeln ( 'Ïîñëå ðåâåðñà: ' );

  for i:=1 to N do

    write ( A[i], ' ' );      

end.