Вывести ** экран 10 случайных чисел. случайные числа должны браться из [-10, 20]...

Question

Вывести на экран 10 случайных чисел. случайные числа должны браться из [-10, 20] (использовать random). Найти их сумму.
использовать цикл For (паскаль)

Answer 1

Program intel;
var a,i,sum: integer;
Begin
randomize;
sum:=0;
for i:=1 to 10 do
begin
a:= random(31)-10;
writeln(a:10);
sum:=sum+a;
end;
writeln;
writeln(sum:10);
readln;
end.