помогите составить блок схему

[zaq2000]

В последовательности из n целых чисел определить процент четных элементов!

Пожалусто помогите мне здавать скоро а я в это неочень понимаю!

[alex_fcsm]

А вы код написали? Для генерирования блок-схем скачайте FCEditor

[zaq2000]

какой код?

[alex_fcsm]

const n=100;
var a:array[1..n] of integer;
     i,x:integer;
begin
x:=0;

randomize;
for i:=1 to n do
 a[i]:=random(1000);
for i:=1 to n do
 if a[i] mod 2=0 then inc(x);
Writeln('Procent:', (x/n):4:2);
end.

[zaq2000]

пожалусто помогите составить схему выше указаной задачи!

[alex_fcsm]

Что - то подобное