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

Вопрос школьника по предмету Информатика

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

Ответ учителя по предмету Информатика

1 program massiv4;

2 const

3  n = 10;

4 var  

 5 a : array[1..n] of integer;

6   i : integer;

7 begin

8   randomize;

 9 for i:=1 to n do

 10   a[i] := random(5,15);

 11

 12

13  write(‘Массив: ‘);

 14for i:=1 to n do

  15 write(a[i]:4);

 16 writeln;

 17

18 end.