Hilfe! Problem in Pascal!

[MrSpock]

Hallo Sofa5000,

Vor der Ausgabe mit Writeln müsstest du überprüfen, ob i <> 0, sonst erzeugst du natürlich einen Fehler (Division durch 0).

Delphi-Quellcode:

var note,sum,i,x:integer;
begin
  i:=-1;
  sum:=0;
  while (note > 0) do begin
    writeln('Gib die Note ein'); ReadLn(note);
    sum:=sum+note;
    i:=i+1;
  end;
  if i > 1 then
    writeln(sum/i)
  else
    writeln('Keine Noten eingegeben.');
  ReadLn;
end.