mam do napisania program wczytujący podawane przez użytkownika liczby dopóki tworzą one ciąg rosnący. Dodatkowo wyświetlić średnią arytmetyczna liczb tego rosnącego ciągu.
Napisałam go ale po wpisaniu pierwszej liczby i wciśnięciu Entera od razu wyświetla średnią. Nie pozwala na wpisanie następnej liczby.Za bardzo nie wiem gdzie robię błąd. Proszę o wskazówkę.
Kod: Zaznacz cały
var poprz, akt : real;
sr_aryt : real;
l_wyraz : integer;
begin
writeln('Wprowadzaj wyrazy ciagu.Po kazdej wcisnij Enter: ');
writeln('Liczba mniejsza lub rowna poprzedniej konczy wczytywanie.');
readln(akt);
poprz := akt;
sr_aryt := akt;
l_wyraz := 1;
while poprz < akt do begin
write('Podaj element: ');
sr_aryt := sr_aryt + akt;
l_wyraz := l_wyraz + 1;
poprz := akt;
readln(akt);
end;
sr_aryt := sr_aryt / l_wyraz;
writeln;
writeln('Srednia arytmetyczna wyrazow ciagu rosnacego: ', sr_aryt:7:2);
writeln;
writeln('Wcisnij Enter');
readln;
end.