Question

помогите решить...........

Answer 1

uses  System.Collections.Generic;

var
  n, i: byte;
  j: integer;
  l: List<integer> := new List<integer>();

begin
  write('n = '); readln(n);
  for i := 1 to n do
  begin
    readln(j);
    if ((((j mod 5) = 0)) and ((j mod 10) = 0)) then l.Add(j);
  end;
  writeln(l.Count);
end.