Question

ПРЯМ СРОЧНО
Составьте программу которая определяет количество в массиве четных чисел используя подпрограмму проверки четности массива

Answer 1

var a:array of integer;

N,i,k:integer;

function f(a:integer):Boolean;

begin

if (a mod 2=0) then f:=True else

f:=False;

end;

BEGIN

k:=0;

writeln('Введите количество элементов массива');

readln(N);

SetLength(A,N);

writeln('Введите массив');

for i:=0 to N-1 do begin

read(a[i]);

if (f(a[i])=True) then k:=k+1;

end;

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

end.

Вводите с клавиатуры кол-во элементов массива, а затем сам массив.