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

obito4891 obito4891    3   22.09.2019 13:30    4

Ответы
ynavuhlitska ynavuhlitska  08.10.2020 09:40
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
ПОКАЗАТЬ ОТВЕТЫ
евгений258 евгений258  08.10.2020 09:40
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика