P: Megszámlálás

Egészítse ki a feladatnak megfelelően a programot!

A program jelenítse meg a képernyőn a "tomb" tömbben tárolt negatív számok darabszámát!



program Megszamlalas;
var
    tomb : array [ 19] of integer = (8,-2, 4, -5, 6, -9, 8, -3, 0);
    i, n, c : integer;
begin
    n := ;
    c := ;
    for i := to n do
        if tomb[i] < then c := c + ;
    WriteLn('Negativ szamok: ', );
end.