Question

Определить сколько процентов от всего количества элементов последовательности целых чисел составляют нечетные элементы.Паскаль.

Answer 1

var N,i,x,k:integer;
 begin;
writeln('Сколько элементов в последовательности?');
readln(N);
writeln('Введите последовательность чисел');
for i:=1 to N do 
begin                   
readln(x);     
if odd(x) then               
k:=k+1end;writeln(k/N*100,' %');           
end.