Инвертирование массива в Паскаль

Инвертирование массива в Паскаль

Исходник программы на языке программирования Pascal, которая инвертирует массив, то есть выводит его в обратном порядке. Используется цикл FOR. Скачать исходник или просмотреть исходный код программы, Вы можете ниже.

Исходный код программы:


const 
  Sz = 100;
var 
  a: array [1..Sz] of integer;
  N: integer;   
begin
  N := 20;
  for var i:=1 to N do
    a[i] := Random(100);
  writeln('Элементы массива: ');
  for var i:=1 to N do
    write(a[i],' ');
  writeln;  
 
  for var i:=1 to N div 2 do
    Swap(a[i],a[N-i+1]);
 
  writeln('После инвертирования: ');
  for var i:=1 to N do
    write(a[i],' ');
end.


Скачать исходник: invert.pas
Дата: 2012-06-04 18:05:12   Просмотров: 8578

Теги: Паскаль исходник массивы циклы FOR Pascal