Составить программу для заполнения массива 20-ю целыми случайными числами, из [-50; 50]

Question

Информатика

Генюся

7 декабря, 14:34

Составить программу для заполнения массива 20-ю целыми случайными числами, из [-50; 50]

+4

Ответы (1)

Знаете ответ на вопрос?

Вениамин · Answer 1

var

A: array [1 ... 20] of integer;

i: byte;

begin

randomize;

for i : = 1 to 20 do

A[i] : = random (101) - 50;

for i : = 1 to 20 do

writeln (A[i]) ;

end.