3. Компьютер получает целые случайные числа из интервала - вопрос №3101018569362 от лина593 30.04.2021 02:44

Question

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

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