Pascal - Procedury i funkcje

Zliczanie liczb

Zliczanie liczb
Pascal - Procedury i funkcje

Program: wprowadzający liczby przez użytkownika a następnie wyszukujący dodatnie jak i ujemne.

Po podaniu przez użytkownika ilości liczb oraz wypisaniu wszystkich po kolei. Program każdą z podanych liczb na bieżąco przydziela do odpowiedniej grupy i zlicza.

Kompilator: Turbo Pascal

Galeria:

Program w akcji.

Kod programu:

program zliczaj;
uses crt;
        var a,b,c,n,x,z:integer;
        procedure zlicz(z:integer);
        begin
        if z<0 then a:=a+1 else b:=b+1
        end;
begin
clrscr;
write('Podaj ilosc liczb: ');
read(n);
for x:=1 to n do
         begin
         write('podaj liczbe: ');
         read(z);
         zlicz(z);
         end;
writeln('Podales ', a, ' liczb ujemnych');
writeln('Podales ', b, ' liczb dodatnich');
readkey;
end.