Question

PASCAL ABC
Определить количество отрицательных четных элементов заданной числовой последовательности. Последовательность содержит как положительные так и отрицательные элементы. В первой строке через пробел перечислены значения элементов целочисленной последовательности, которая заканчивается нулем. Сам ноль не является элементом последовательности. Значения элементов последовательности по модулю не превышают 30000. (1 балл) ​

Answer 1

Ответ:

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.

Если я смог тебе помочь, то помоги и мне - сделай этот ответ лучшим :)