В виде программ:
1 Заполнить массив N числами(N<=1000), введенными с клавиатуры. Вывести числа в строку в прямом и обратном порядке.
2 Ввести число. Заполнить массив цифрами числа. Вывести цифры числа в строку.
3 Заполнить массив четными числами из интервала [a, b].Вывести числа в строку в обратном порядке.

Спасибо большое

1-аяProgram one;Varn, i : integer;a : array [1..1010] of integer;Beginread(n);for i := 1 to n dobeginread(a[i]);end;for i := 1 to n dobeginwrite(a[i], ' ');end;writeln();for i := n downto 1 dobeginwrite(a[i], ' ');end;End.2-аяProgram two;Varn, i, k: integer;a : array [1..1010] of integer;Beginread(n);k := 1;while (n > 0) dobegina[k] := n mod 10;k := k + 1;n := n div 10;end;for i := k - 1 downto 1 dowrite (a[i], ' ');End.3-яProgram two;Vark, start, endd, i: integer;a : array [1..1010] of integer;Beginread (start, endd);k := 1;for i := start to endd dobegin     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.