Вывести элементы массива на экран в обратном порядке

Question

Информатика

Урбана

1 марта, 23:52

Вывести элементы массива на экран в обратном порядке

+3

Ответы (1)

Знаете ответ на вопрос?

Владилен · Answer 1

Var a:array [1 ... 10] of integer;

begin

for i:=1 to 10 do

begin

a[i]:=i;

write (a[i]:3) ;

end;

writeln;

for i:=10 downto 1 do write (a[i]:3) ;

writeln;

end.