Заполнить массив 15-ю целыми случайными числами из диапазона [-30;70]. Паскаль или Кумир

Question

Заполнить массив 15-ю целыми случайными числами из диапазона [-30;70].
Паскаль или Кумир

Answer 1

PascalABC.NET 3.3.5, сборка 1650 от 01.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(15,-30,70); a.Println
end.

Пример
-26 55 10 -13 9 -21 22 -1 16 23 42 -4 58 -11 59

Answer 2

Var
  A: array [1..15] of integer;
  i: integer;
begin
  for i := 1 to 15 do
  begin
    A[i] := random(101)-30;
    write(A[i]:4);
  end;
end.