В программе Паскаль. Найти четные элементы массива

Question

В программе Паскаль. Найти четные элементы массива

Sidni Ученик (88), закрыт 13 лет назад

Answer 1

mod - проверяет остаток от деления. , т. е. 18 mod 5 = 3
На основании этого, тебе нужно делить счетчик на два. Если элекмент четный, то остаток от деления будет равен нулю.

Answer 2

нашел и посчитал:
var tbl:array[1..100]of integer;
x,n,k:integer;
begin
writeln('enigu kvanton de elementoj de tabelo');
readln(n);
k:=0;
for x:=1 to n do begin
write('enigu ',x,' elementon ');
readln(tbl[x]);
end;
writeln('para elementoj:');
for x:=1 to n do begin
if tbl[x] mod 2=0 then begin
k:=k+1;
writeln(tbl[x]);
end;
end;
writeln('kvanto de para elementoj = ',k);
readln;
end.