Создать массив a из десяти целых чисел, принадлежащих промежутку [-50; 50). Вывести полученный массив на экран

Question

Информатика

Коляня

19 сентября, 13:12

Создать массив a из десяти целых чисел, принадлежащих промежутку [-50; 50). Вывести полученный массив на экран

+2

Ответы (1)

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

Константин · Answer 1

Var A:array[1 ... 10] of integer;

i: integer;

begin

randomize;

for i:=1 to 10 do begin

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

writeln (A[i]) ;

end;

end.