Предмет: Информатика,
автор: vladbogachev06
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.
Объяснение:
Интересные вопросы
Предмет: Окружающий мир,
автор: ник1013
Предмет: Қазақ тiлi,
автор: милена54
Предмет: Русский язык,
автор: yulashka971
Предмет: Физика,
автор: Elevator13
Предмет: Окружающий мир,
автор: РитусяМаргаритуся