Программа заполнения массива из 100 чисел случайными значениями из диапазоа от -20 до 20. (паскаль)

Каке11 Каке11    3   20.05.2019 00:30    0

Ответы
Kpoper772 Kpoper772  13.06.2020 06:54

const

  n = 100;

var

  a:array[1..100] of integer;

  i:integer;

begin

  randomize;

  for i := 1 to n do

  begin

    a[i] := random(41) - 20;

    write(a[i], ' ');

  end;

  writeln;

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика