Задача 4. Одномерный массив вводится пользователем с клавиатуры

1. Постановка задачи.

Одномерный массив вводится пользователем с клавиатуры. Переставить элементы массива, стоящие на четных и нечетных местах.

2. Математическая модель.

b=a[i] a[i]=a[i+1] a[i+1]=b

3. Блок-схема.

4. Список идентификаторов.

Имя	Смысл	Тип
A	Массив данных	Integer
I	Счетчик	Integer
N	Переменная переноса	Integer

5. Код программы.

program z4;

{$mode objfpc}{$H+}

uses

{$IFDEF UNIX}{$IFDEF UseCThreads}

cthreads,

{$ENDIF}{$ENDIF}

Classes

{ you can add units after this };

var a:array [1..10] of integer;

i, n:integer;

begin

writeln ('Введите 10 элементов массива');

for i:= 1 to 10 do

read (a[i]);

i:=1;

while i <=9 do

begin

n:=a[i];

a[i]:=a[i+1];

a[i+1]:=n;

i:=i+2;

end;

for i:= 1 to 10 do

write (a[i], ' ');

readln ();

end.

6. Результаты выполнения программы.