3. Компьютер получает целые случайные числа из интервала [-10, 10] до тех пор, пока не получит число -2. Распечатать полученные случайные числа в строку. Найти сумму положительных чисел из этого набора. Значение суммы также вывести на экран.
Ответы
Ответ дал:
0
Ответ:
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.
Объяснение:
Похожие вопросы
2 года назад
2 года назад
8 лет назад
8 лет назад
9 лет назад