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

Question

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

Answer 1

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.

Answer 2

// PascalABC.NET

begin

 var a := ArrRandom(11, -11, 12);

 a.Print

end.