1) заполните масив случайными числами от -10 до20 элементов в массиве 10вывести на экран в строку через точку с запятой 2)

Var tarray:array[1..10] of integer;
i:byte;

begin
for i:=1 to 10 do
begin
 tarray[i]:=random(30)-10
writeln(tarray[i], ';');
end;
end.