Задан массив из 19 случайных чисел из промежутка от - 20 до 20. Вывести элементы массива в строку, а во вторую строку в обратном порядке.

Question

Информатика

Зиновия

4 декабря, 22:59

Задан массив из 19 случайных чисел из промежутка от - 20 до 20. Вывести элементы массива в строку, а во вторую строку в обратном порядке.

+3

Ответы (1)

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

Гедимин · Answer 1

Program nancik;

var a:array[1 ... 19] of integer;

n, i:integer;

begin

for i:=1 to 19 do begin

a[i]:=random (40) - 20;

write (a[i],' ') ;

end;

writeln;

for i:=19 downto 1 do

write (a[i],' ') ;

end.