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

Решение

program lab11;

type mas=array[1..100] of integer;

var i,k:integer;

n:real;

a:mas;

begin

randomize;

writeln('Vvedite kolvo elementov posledovatelnosti <100');

readln(k);

n:=0;

for i:=1 to k do

begin

     a[i]:=random(100);

     if (a[i] mod 2) <>0 then n:=n+1;

     {

      If odd(a[i]) then inc(n);

     }

     write(a[i],' ');

end;

writeln;

n:=n/k*100;

writeln('Procent nechetnih = ',n,'%');

readln;

end.