Дана натуральная числовая последовательность из N чисел. Вывести значения элементов заданной последовательности в прямом порядке, не используя массивы. SROCHNO~!~

Question

Дана натуральная числовая последовательность из N чисел. Вывести значения элементов заданной последовательности в прямом порядке, не используя массивы. SROCHNO~!~

Гость

Ответ(ы) на вопрос:

Accepted Answer

type mas=array of integer; procedure revers(var a:mas; i:integer); begin write(a[i],' '); if i>0 then revers(a,i-1); end; var a:mas; i,n:integer; begin readln(n); setlength(a,n); for i:=0 to n-1 do read(a[i]); revers(a,n-1); end