Question

Пожалуйста, напишите программы в паскаль:

1) Используя генератор случайных чисел, заполнить массив размерностью 8 элементов числами из интервала [-10,+50]. Вывести список элементов массива

2) Заполнить массив размерностью 4 с клавиатуры целыми числами . Вывести список элементов массива

3) Заполнить массив размерностью 18 Ввод с помощью формулы А(i)=i*i+4 . Вывести список элементов массива

Answer 1

Ответ:

#1

begin

   ArrRandom(8, -10, 50).Println;

end.

#2

begin

  var A := ReadArrInteger(4);

  A.Println;

end.

#3

begin  

  var A := SeqGen(19, p-> p*p + 4);

  A.Println;

end.

Объяснение: