В виде программ:

1 Заполнить массив N числами (N<=1000), введенными с клавиатуры. Вывести числа в строку в прямом и обратном порядке.

2 Ввести число. Заполнить массив цифрами числа. Вывести цифры числа в строку.

3 Заполнить массив четными числами из интервала [a, b]. Вывести числа в строку в обратном порядке.

1-ая

Program one;

Var

n, i : integer;

a : array [1 ... 1010] of integer;

Begin

read (n) ;

for i : = 1 to n do

begin

read (a[i]) ;

end;

for i : = 1 to n do

begin

write (a[i], ' ') ;

end;

writeln () ;

for i : = n downto 1 do

begin

write (a[i], ' ') ;

end;

End.

2-ая

Program two;

Var

n, i, k: integer;

a : array [1 ... 1010] of integer;

Begin

read (n) ;

k : = 1;

while (n > 0) do

begin

a[k] : = n mod 10;

k : = k + 1;

n : = n div 10;

end;

for i : = k - 1 downto 1 do

write (a[i], ' ') ;

End.

3-я

Program two;

Var

k, start, endd, i: integer;

a : array [1 ... 1010] of integer;

Begin

read (start, endd) ;

k : = 1;

for i : = start to endd do

begin

if (i mod 2 = 0) then

begin

a[k] : = i;

k : = k + 1;

end;

end;

for i : = k - 1 downto 1 do

write (a[i], ' ') ;

End.