PASCAL Помоогите решить задачу

Question

PASCAL Помоогите решить задачу

Максим Шилин Ученик (95), закрыт 2 года назад

11. Заполнить массив из 15 элементов числами из интервала от -10 до 10 вывести в строчку и повторно вывести в строчку, но в обратном порядке.

Answer 1

А в чем сложность?
В интервале? Рандомим от 0 до 20 и вычитаем 10
for i:=1 to 15 do
ar[i] := random(20) - 10;
В выводе?
for i:=1 to 15 do //в прямом порядке
write (ar[i])

В обратном порядке for i:=15 to 1