Question

Пожалуйста, помогите составить программу правильно!!!!!
Вот условие:
Разработать схему алгоритма, который вводит массив из N целых чисел и выводит на экран этот же массив в прямом и обратном порядке. Протестировать алгоритм на произвольных массивах, состоящих из 1 числа, из 5 чисел, из 10 чисел.

На Паскале

Answer 1

Var n,i:integer;
a:array[1..1024] of integer;
begin
randomize;

write('N=');
readln(n);

for i:=1 to n do
a[i]:=random(2*n+1)-n;

write('V pramom poradke - ');
for i:=1 to n do
write(a[i],' ');
writeln;

write('V obratnom poradke - ');
for i:=n downto 1 do
write(a[i],' ');
writeln;
end.