Программирование Turbo Pascal 7 и Delphi 7, Обращайтесь кто интересуется Опции

[DAN]

Можете сдесь задавать свои вопросы по этой теме.

[Gobbs]

2)дана последовательность из N чисел в диапозоне -3200 до 3200.(1<=N<=10000), Вывести эту последовательность в обратном порядке(развернуть массив).
(входные данные: в первой строке ввести число N
во второй строке ввести N чисел через один или несколько пробелов)
(входные данные)10 (выходные данные)
1 2 3 4 5 6 7 8 9 10 10 9 8 7 6 5 4 3 2 1

Код

program sandro;
uses crt;
const max=10000;
var c:array[1..max] of integer;
n,i:integer;
begin
clrscr;
repeat;
  write('vvedite kol-vo el-ov-->');
  readln(n);
  if(n>max)then writeln('vvedeno N>MAX');
until(n<max);

write('zapolnite massiv->');

for i:=1 to n do
    repeat;
    read(c[i]);
    until((c[i]>-3200) and (c[i]<3200));

writeln;
write('vivod massiva v obratnom poriadke-->');
for i:=n downto 1 do
    write(c[i],' ');
end.