числа 2 и 4
Мухтар это ты перечислил целые а не четные
var a:array [1..100] of integer; i,n,b:integer;
begin
i:=1;
while a[i]<>5 do
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
Мухтар это ты перечислил целые а не четные
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.