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

Question

Информатика

Андрона

18 ноября, 19:10

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

+4

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