Question

Пользователь вводит числа до тех пор, пока не введет число 0. Нужно вывести все введенные числа в обратном порядке (0 не входит в них, а является просто признаком завершения)

Пример
Пользователь вводит
4
3
5
6
8
0

Программа выводит
8
6
5
3
4

на Pascal

ДАЮ 35 БАЛЛОВ!!!!!!!

Answer 1

var k, x, i: integer;

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

begin

k := 0;

while True do begin

k += 1;

read(x);

if x = 0 then break;

a[k] := x;

end;

for i:=k-1 downto 1 do begin

writeln(a[i])

end;

end.