пусть дано N чисел,введенных с клавиатуры. Найти количество только тех из них,которые кратны 2 и оканчиваются на 8.
Программа в паскале(с помощью цикла)

там не хватило ещё mod a 2=0

Можно и без него

Vari,N,A,k:integer;Begink:=0;Write('N = ');Read(N);For i:= 1 to N do    Begin    Read(A);    if (A mod 10 = 8) then k:=k+1;    End;WriteLn(k);End.