var n,licz,i,il:integer;beginwrite('podaj ilosc liczb: ');readln(n);il:=0;for i:=1 to n do begin read(licz); if(licz>0) then il:=il+1; end;writeln('dodatnich liczb w ciagu ',n,' elementowym jest ',il);readln;end.
//gdyby były problemy daj znać na pw
" Life is not a problem to be solved but a reality to be experienced! "
© Copyright 2013 - 2025 KUDO.TIPS - All rights reserved.
var n,licz,i,il:integer;
begin
write('podaj ilosc liczb: ');
readln(n);
il:=0;
for i:=1 to n do
begin
read(licz);
if(licz>0) then il:=il+1;
end;
writeln('dodatnich liczb w ciagu ',n,' elementowym jest ',il);
readln;
end.
//gdyby były problemy daj znać na pw