var a : string;
b : Array of string;
c, e : integer;
count : integer := 0;
begin
read(a);
b := a.ToWords(' '); // Преобразуем ввод в массив
for i : integer := 0 to Length(b) - 2 do
begin
Val(b[i], c, e); // Преобразуем строку в число
if (c < 0) and (c mod 2 = 0) then count += 1;
end;
write(count);
end.
Если я смог тебе , то и мне - сделай этот ответ лучшим :)
