6. Написать программу, осуществляющую заполнение массива из 10 элементов случайными числами из интервала от -5 до 5 и вывода их в строчку.

Question

6. Написать программу, осуществляющую заполнение массива из 10 элементов случайными числами из интервала от -5 до 5 и вывода их в строчку.

Гость

Ответ(ы) на вопрос:

Accepted Answer

var a : array [1..10] of integer;; i : integer; begin for i := 1 to 10 do a[i] := round (random (10)) - 5; for i := 1 to 10 do write (a[i], ' '); end.