В ячейку А записывают N раз произвольное число. Определить, сколько среди этих чисел положительных. Задача в Pascal

Question

Информатика

Камилла

14 апреля, 03:37

В ячейку А записывают N раз произвольное число. Определить, сколько среди этих чисел положительных. Задача в Pascal

+2

Ответы (1)

Знаете ответ?

Полинка · Answer 1

Var

a:array[1 ... 10]of integer;

k, i:integer;

begin

randomize;

k:=1;

for i:=1 to 10 do

a[i]:=random (30) - 20;

for i:=1 to 10 do

if a[i]>0 then

k:=k+1;

writeln ('kolichestvo>0:', k) ;

for i:=1 to 10 do

writeln (a[i]) ;

end.