Составить программу для ввода с клавиатуры в массив 12 целых чисел в столбец и вывода чисел в строку в обратном порядке через точку с запятой

Question

Линя

9 декабря, 09:27

+4

Ответы (1)

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

Марьянка · Answer 1

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

i:integer;

begin

for i:=1 to 12 do

read (a[i]) ;

for i:=12 downto 1 do

write (a[i],'; ') ;

end.