ПАСКАЛЬ, СОСТАВИТЬ ПРОГРАММУ Числа задаются случайно в диапазоне от [-10,10] и выводятся...

Question

ПАСКАЛЬ, СОСТАВИТЬ ПРОГРАММУ
Числа задаются случайно в диапазоне от [-10,10] и выводятся на экран. Находится сумма числе, пока число не станет равным 0.

Answer 1

Var a,s:integer;
begin
Randomize;
a:=random(21)-10;
writeln(a);
s:=0;
while a<>0 do
 begin
 s:=s+a;
 a:=random(21)-10;
 writeln(a);  
 end;
write('s = ',s);
end.

Пример:
-6
6
10
7
-10
-8
-9
0
s = -10