Всем .мой вопрос заключается в на массив. на промежутке от a и b подсчитайте количество четных чисел. заранее !

program nfcdjcfi;

uses crt;

var e: array [1..100] of integer;

        i,a,b,kolvo: integer;

begin

clrscr;

kolvo: =0;

readln(a,b);

for i: =a to b do

if e[i] mod 2 =0 then kolve: =kolvo+1;

writeln(kolvo);

readln;

end.

For i: =m to n do.. количество повторов равно n-m+1 - если меньше 1 значит повторов 0 for i: =m downto n do.. количество повторов равно m-n+1 - если меньше 1 значит повторов 0 1) 7 2) 9 3) 9 4) 5 переменные после выполнения программ:   5) i=2     s=0 6) x=16     s=26 7) a=1     s=0 8) пока не будет достигнут порог типа или же зацикливание. 9) a=3     b=5     s=8 10) s=35       p=10       k=7 11) k=5       s=11 12) s=60

Program   abc; const pi=3.14; var n: integer; z: real; r,d,l,s: real; begin writeln('введите номер элемента n='); readln(n); writeln('введите значение элемента z='); readln(z); case   n  of 1: begin r: =z; d: =2*r; l: =2*pi*r; s: =pi*sqr(r); writeln('радиус r=',r); writeln('диаметр d=',d); writeln('длина l=',l); writeln('площадь круга s=',s); end; 2: begin r: =z/2; d: =2*r; l: =2*pi*r; s: =pi*sqr(r); writeln('радиус r=',r); writeln('диаметр d=',d); writeln('длина l=',l); writeln('площадь круга s=',s); end; 3: begin r: =z/(2*pi); d: =2*r; l: =2*pi*r; s: =pi*sqr(r); writeln('радиус r=',r); writeln('диаметр d=',d); writeln('длина l=',l); writeln('площадь круга s=',s); end; 4: begin r: =sqrt(z/pi); d: =2*r; l: =2*pi*r; s: =pi*sqr(r); writeln('радиус r=',r); writeln('диаметр d=',d); writeln('длина l=',l); writeln('площадь круга s=',s); end; else   writeln('ошибка'); end; end.