Склавиатуры вводятся числа до тех пор пока не введено 5. найти колличество четных чисел из введенных .

var a: array [1..100] of integer; i,n,b: integer;

begin

i: =1;

while a[i]< > 5 do

begin

read(a[i]);

i: =i+1;

n: =n+1;

end;

for i: =1 to n do

if a[i] mod 2=0 then b: =b+1;

writeln(b);

end.

числа 2 и 4

мухтар это ты перечислил целые а не четные

линейный - начало-нарезать ломтик хлеба - намазать его маслом-отрезать ломтик сыра- положить сыр на хлеб - конец

развлетвляющийся - подъехал иван царевич к камню - направо пойдешь? - 1)голову сложишь -2) коня потеряешь - конец

циклические - определение фальшивой монеты

начало -  положить  по  одной  монете  на  каждую  чашу  весов,  третью  монету  отложить  в  сторону-весы  в  равновесии? - да(отложенная монета фальшивая) -нет(монета на поднявшийся вверх чаше фальшивая) - конец

|             0               0 |

|                                 |

| 0                             |

|                                 |

|                               |

| |