3. Компьютер получает целые случайные числа из интервала - вопрос №310118569705 от 1pashnett 06.09.2020 06:11

Question

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

1pashnett · Answer

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.Объяснение:...