POMOCY program Turbo Pascal

[dex1988 0]

Witam

 

Muszę napisać program który będzie znajdował najmniejszą z podanych n liczb, napisałem coś takiego, ale coś jest nie tak

 

program min_max;

var min,liczba: integer;

begin

writeln('podaj liczba');

readln(liczba);

min:= liczba;

while liczba < 0 do

begin

if liczba < min then

min:= liczba;

readln(liczba)

end;

writeln('minim wynosi: ',min);

readln

end.

 

w ten program mogę wpisać tylko jedną liczbę, a muszę wpisać kilka, jak to zrobić?

Proszę o pomoc

[209458 867]

możesz wpisać dowolnie dużo liczb, pod warunkiem, że wpisujesz liczby ujemne Wpisanie liczby dodatniej kończy pętlę

while liczba < 0 do

[tomuss 0]

Tak jak kolega mowi!!

Ale takie rozwiązanie co próbujesz zrobić nie jest dobre, bo wtedy masz pewne ograniczenia dotyczace wartości liczby.

Najlepiej wrzucać po kolei wszystkie elementy do listy, a potem znaleźć min.

[dex1988 0]

już to zrobiłem i chodzi, a co trzeba zrobić żeby np. wpisać 10 liczb i pokazało wynik, bo teraz wpisuje liczby do tej pory aż wpisze na końcu 0 i dopiero wtedy pokazuje wynik

 

p.s.

wiecie jak zrobić do tego schemat blokowy