Question

С клавиатуры вводится 8 целых чисел. С помощью цикла for найди количество положительных чисел.
Срочно!

Answer 1

for I:=1 to 8 do

read(a[I]);

b:=0;

for I:=1 to 8 do

if (a[I]mod3=0) and

(a[I]mod10=4) then  

b:=b+1;