Question

заполнить массив из 10 элементов случайными числами в интервале -10 10

Answer 1

var

a:integer;

z:array [1..10] of integer;

begin

 write('Элементы цикла(10): ');

 for a:=1 to 10 do

   begin

   z[a]:=random(21)-10;

   write(z[a],', ');

   end;

end.