3. Компьютер получает целые случайные числа из интервала [-10, 10] до тех пор, пока не получит число -2. Распечатать полученные случайные числа в строку. Найти сумму положительных чисел из этого набора. Значение суммы также вывести на экран.
natalinatark
2
16.05.2021 12:53
2
Другие вопросы по теме Информатика
apolinarii2006
31.08.2019 20:55
хорошист547
22.04.2020 12:38
Анастасия02052005
22.04.2020 12:39
Askemba
26.04.2020 09:30
studentsuka
14.04.2021 13:30
kataysinkevich
14.04.2021 13:30
asyast26
14.04.2021 13:31
nikita577344
14.04.2021 13:31
Dasha112111
10.03.2021 01:24
julif84
10.03.2021 01:27
Популярные вопросы
- 3)300% от 75 л . 4)0,8% от 0,25 с ....
1 - По напишете про кого ни будь кто жил в маскве и чем то ее оч...
2 - Характеристика александра 1 по плану план. 1)годы жизни и годы...
3 - Жалғаулық шылауға мысал жазып беріңдерші...
2 - Вкартофеле содержится 18% крахмала сколько килограммов крахмала...
3 - Уравнение реакции s-so2-h2so3-k2so3 ba-bao-ba(oh)2-baso4...
3 - Как называется самая большая акула? p.s. она существовала много...
3 - На болоне со сдатым газом написано беречь от прямых солнечных...
3 - {2x+3y=16 {x+2y=1 решите систему уравнения...
1 - Сумма длин двух сторон прямоугольника равна 7 см.найти периметр...
2
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.
Объяснение: