Program picaso; uses crt; var i,n,k:integer; a:array[1..10] of integer; begin clrscr; k:=0; writeln('Vedite nomer cisel');read(n); for i:=1 to n do begin write('A[',i,']='); readln(a[i]); end; for i:=1 to n do if (a[i] mod 2)=0 then inc(k); writeln('Nomer ciotnih cisel: ',k); end.
var i,n,k:integer;
a:array[1..10] of integer;
begin clrscr;
k:=0;
writeln('Vedite nomer cisel');read(n);
for i:=1 to n do
begin
write('A[',i,']=');
readln(a[i]);
end;
for i:=1 to n do if (a[i] mod 2)=0 then inc(k);
writeln('Nomer ciotnih cisel: ',k);
end.