3. Компьютер получает целые случайные числа из - вопрос №3101018569537 от airatfack2000oz7glu 29.08.2021 14:47

Question

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

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