Question

Помогите пожалуйста Дана последовательность из N целых чисел определить количество положительных кратных 5

Answer 1

begin

 var ss := ReadSeqInteger(ReadlnInteger('n ='));

 ss.Count(x -> (x > 0) and (x mod 5 = 0)).Println;

end.

Answer 2

var i,b,n,k:integer;

begin

k:=0;

readln(n);

for i:=1 to n do begin readln(b); if((b>0)and(b mod 5 = 0)) then k:=k+1; end;

writeln(k);

end.