Question

ПОМОГИТЕ, ОЧЕНЬ СРОЧНО, ПОЖАЛУЙСТА, ПРОШУ ВАС, С ОБЪЯСНЕНИЕМ !!! ЗАРАНЕЕ СПАСИБО ЗА ВАШ ТРУД И ПОМОЩЬ
Паскаль!!! ​

Answer 1

Ответ:

pascal

Объяснение:

var

 i, n, k : integer;

 a: array of integer;

begin

 Write('Введите размер массива: ');

 ReadLn(n);

 SetLength(a, n);

 WriteLn('Введите элементы массива:');

 for i := 0 to n - 1 do

 begin  

   ReadLn(a[i]);

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

 end;  

 WriteLn('Количество четных элементов равно ', k);

end.