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

Question

Емельян

19 мая, 21:55

+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.