Új hozzászólás Aktív témák

• #2163 [HUN]Zolee őstag RoyalFlush #2162

  Új Válasz 2008-04-01 09:31:57 #2163

  Új hozzászólás

  Ö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

  

  [HUN]Zolee

  őstag

  válasz RoyalFlush #2162 üzenetére

  Kicsit sok az elágazás a programodba
  Olyan excel-esen oldottad meg, ott kell mindig foglalkozni azzal hogy ha csak 1 érték van az adott tartományba

  program szamok;
  uses crt;
  var n,osszeg,db,legkisebb,legkisebb_db,sorszam:real;
  
  begin
  clrscr;
  
  osszeg:=0;
  atlag:=0;
  db:=0;
  legkissebb:=0;
  
  repeat
  
  writeln('Kérem a számot: ');
  read(n);
  if n<>0 then
  begin
  
  osszeg:=osszeg+n;
  db:=db+1;
  if legkisebb>n then
  begin
  
  legkisebb=n ;
  legkisebb_db=db;
  
  end;
  
  end;
  until n=0;
  
  if db>0 then
  begin
  writeln('A számok összege: ',osszeg);
  writeln('A számok átlaga: ',osszeg/db);
  writeln('A legkisebb szám a(z) ',legkissebb);
  write('és a bekérés sorszáma: ',sorszam);
  end;
  
  end.

Új hozzászólás Aktív témák