VISSZA
MENÜ
ISMÉT
TOVÁBBEgé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.