Question

3. Компьютер получает целые случайные числа из интервала [-10, 10] до тех пор, пока не получит число -2. Распечатать полученные случайные числа в строку. Найти сумму положительных чисел из этого набора. Значение суммы также вывести на экран.

Answer 1

Ответ:

Program A1M;

var x,y,z,n:integer;

Begin

Repeat

x:=random(21)-10;

Print(x);

if x>0 then

y:=y+x;

until x=-2;

WriteLn('сумма: ', y);

end.

Объяснение: