Aktív témák

• #4 KovacsUr addikt KovacsUr #2

  2003-04-18 17:22:07 #4

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  KovacsUr

  addikt

  válasz KovacsUr #2 üzenetére

  pld.
  
  const
    MAX_SZAM = 5;
  
  var
    i: integer;
    szam: array[1..MAX_SZAM] of integer;
    pozitiv, negativ: integer;
  
  begin
  
    pozitiv := 0;
    negativ := 0;
  
    for i := 1 to MAX_SZAM do begin
      write(i,'. szam: ');
      readln(szam[i])
    end;
  
    for i:= 1 to MAX_SZAM do begin
      if szam[i] > 0 then inc(pozitiv)
      else if szam[i] < 0 then inc(negativ);
    end;
  
    writeln('Pozitiv: ', pozitiv, ' Negativ: ', negativ, 'Nulla: ', MAX_SZAM-(pozitiv+negativ));
  end.

Aktív témák