Дан массив A размера N. Вывести вначале его элементы с четными номерами (в порядке возрастания номеров), а затем — элементы с нечетными номерами (также в порядке возрастания номеров): A2, A4, A6, : : :, A1, A3, A5, : : :

Категория: Delphi/Pascal
2013-01-09 21:47:07
code: #pascal
Program Array14;
var
  a: array of integer;
  i, n: integer;
begin
  WriteLn('Размер массива:');
  ReadLn(n);
  SetLength(a, n);
  Writeln('Введите ', n, ' чисел:');
  for i := 0 to n - 1 do
    Read(a[i]);
  ReadLn;
  i := 1;
  while i < n do
  begin
    Write(a[i], ' ');
    Inc(i, 2);
  end;
  i := 0;
  while i < n do
  begin
    Write(a[i], ' ');
    Inc(i, 2);
  end;
  WriteLn;
  ReadLn;
end.

автор: Zaharov Nikolay a.k.a. hacker19_90

Поделиться:

Похожие статьи:

теги: одномерный массив, массив