Москва - столица России (истинное)
Париж - столица Германии (ложное)
5>3 истинное, -5>-3 ложное
16=16 истинное, 16≠16 ложное
17 - нечетное число (истинное), 25 - четное число (ложное)
Program qq;
var a:array[1..n] of integer;
i,k,s,SA:integer;
begin
for i:=1 to N do readln(A[i]);
k:=0; SA:=0; s:=0;
for i:=1 to N do
If (A[i]mod2=0) and (A[i]mod3<>0) then begin
k:=k+1;
s:=s+A[i];
end;
SA:=s/k;
writeln(k, s, sa);
<span>end.</span>
Держи)помоги пожалуйста мне))