iforum

vedel by mi dakdo pomôct s KDU 3 Uloha č 1
Zadanie "Napišete program na zistenie počtu všetkych neparnych čisel z danych n čisel"
Dakujem

{okomentuj riadky v zdrojaku!!! kazdy. vylepsi program!!!. kolko casu si stravil nad vyriesenim tohto programu? }

program neparnesuma;
uses crt;
var suma,x,n,i:integer;
begin
suma:=0;
writeln('zadaj kolko cisiel');
readln(n);
for i:=1 to n do
begin
writeln('zadaj ',i,'. cislo');
readln(x);
if x mod 2 <> 0 then
suma:=suma+1;
end;
writeln('neparnych je ',suma,'.');
readln;
end.