Question

заполните массив из 25 элементов случайными числами из интервала [-30;50]. Посчитать количество положительных элементов

Answer 1

Pascal abc
Проверка
 -29  13 -23 -20  10  13 -23  -1  30  45
кол-во полож=5

211875617cdc1638ccec39e3e46d382b.pas