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

Question

Информатика

Борюша

5 октября, 13:29

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

+3

Ответы (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.