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

• #2154 zvaragabor senior tag

  Új Válasz 2008-03-31 18:42:43 #2154

  Ú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

  

  zvaragabor

  senior tag

  Üdv. Volna egy olyan feladat, hogy:
  0 végjelig kérek be számokat. Kiíratom a számok összegét, az átlagukat, és hogy melyik volt a legkisebb bekért szám, valamint ezt hanyadiknak kértem be. Eddig jutottam ell, itt megállt a tudományom, hibát ír ki:

  program szamok;
  uses wincrt;
  var n,osszeg,atlag,db,legkissebb,sorszam:integer;

  begin
  clrscr;

  osszeg:=0;
  atlag:=0;
  db:=0;
  repeat

  writeln('Kérem a számot: ');
  read(n);

  osszeg:=osszeg+n;
  db:=db+1;
  atlag:=atlag+n/db;
  until n=0;

  writeln('A számok összege: ',osszeg);
  writeln('A számok átlaga: ',atlag);
  writeln('A legkisebb szám a(z) ',legkissebb 'és ez ',sorszam '-nak-nek lett bekérve');
  end.

  Tudnátok segíteni?

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