PASCAL ABC Определить количество отрицательных четных элементов заданной числовой последовательности. Последовательность содержит как положительные так и отрицательные элементы. В первой строке через пробел перечислены значения элементов целочисленной последовательности, которая заканчивается нулем. Сам ноль не является элементом последовательности. Значения элементов последовательности по модулю не превышают 30000. ( )
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.
Если я смог тебе , то и мне - сделай этот ответ лучшим :)