[Nevil_White]

Продолжаем по теме:

Код:

program zadanie9;
type charset=set of byte;

var set1:set of 1..30;
j,i,res:integer;

begin
    j:=0;

    set1:=[15,4,5,7,9,6,4,8,5,2,3,19,13,13,17,19,15,11,3,22,27,26,24,27,25,29,14,9,13,21];
    
    
    for i:=1 to 30 do
    begin
        if i in set1 then j:=i;

        begin
   
        if (j mod 2=0) then res:=res+1;
        end;
    end;
    writeln('Четных чисел: ', res);

end.

Проблема в том что в результат не правильный, а массив использовать нельзя