Question

Se da un tablou liniar cu n componente numere intregi.Determinati numarul componentelor pare din tablou

Answer 1

Program Pn;
x:array[1..100] of integer;
i,n,s:integer;
begin
Writeln('Dati n');
readln(n);
for i:=1 to n do
begin
Write('x[',i,']=');readln(x[i]);
if (x[i] mod 2)=0 then s:=s+1;
end;
Writeln('Numere pare=',s);
readln;
end.