Составьте программу, которая формирует массив из 10 случайных чисел от - 25 до + 25, и подсчитывает количество положительных элементов (Только не надо с решебы)

Question

Информатика

Веруша

18 мая, 17:34

Составьте программу, которая формирует массив из 10 случайных чисел от - 25 до + 25, и подсчитывает количество положительных элементов (Только не надо с решебы)

+4

Ответы (1)

Знаете ответ на вопрос?

Трифон · Answer 1

Var a: array [1 ... 10] of integer; var c: integer; begin for var i: = 1 to 10 do a[i]:=25-random (50) + 1; for var i: = 1 to 10 do begin if (a[i] > 0) then c:=c+1; end; writeln ('Положительных чисел: ', c) ; end.