№1. Дан массив действительных чисел, размерность которого N. Подсчитать, сколько в нем...

Question

№1. Дан массив действительных чисел, размерность которого N. Подсчитать, сколько в нем четных, нечетных и нулевых элементов.
№2. Дан одномерный массив, состоящий из 10 элементов. Найти сумму всех двузначных элементов массива.

Answer 1

Var a:array[1..100]of integer;
nol,chet,nechet,i,n:integer;
begin
readln(n);
for i:=1 to n do begin
 readln(a[i]);
if (a[i] mod 2=0)and(a[i]<>0) then chet:=chet+1;
if (a[i] mod 2=1) then nechet:=nechet+1;
if a[i]=0 then nol:=nol+1;
end;
writeln('четных :',chet,' ','нечетных :',nechet,',' ',нулевых :',nol);
end.