logó ISKOLAI TEHETSÉGGONDOZÁS
Tesztek, feladatok, hírek, információk
visszaVISSZA   
menüMENÜ   
ismétISMÉT   

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.




Ahogy a legtöbb honlap, ez a webhely is használ sütiket a weboldalain.