Question

Ребят, помогите пожалуйста по информатике задачу

(13) Нужно составить программу в Паскале ABC.net

Answer 1

// PascalABC.NET 3.3

begin
  var n:=ReadInteger;
  var a:=ReadSeqInteger(n);
  print(a.Where(x->(x mod 7=0)and(x mod 5<>0)).Count);
end.

Пример:
4
6 28 36 21
2 

Answer 2

program izi;
var n,a,k,i:integer;
begin
 k:=0;
 readln(n);
 for i:=1 to n do begin
  readln(a);
  if (a mod 7 =0) and (a mod 5<>0) then inc(k);
  end;
  writeln(k);
  end.