Witam!! Z "Turbo Pascalem" mam dopiero do czynienia i nawet dobrze sobie radzę xD. Ale mam pewien problem z zadaniem i nie moge go rozwiązać:(. Chodzi o zadanie takie.
Napisz program który pobiera n liczb(n-wpisuje uzytkownik) i wyświetla dwie liczby największe i dwie liczby najmniejsze
Ja robiłem ale mi nie wychodzi zrobiłem tylko tak:
var n,a,max,min:integer;beginwriteln('podaj ile liczb');readln(n); writeln('podaj liczbe'); readln(a); min:=a; max:=a; l:=0;repeatwriteln('podaj liczbe');readln(a); if max<a then max:=a else if min>a then min:=a;inc(l);until(l=n-1); writeln('największą liczbą jest',max,'a najmniejszą',min); readln;end.To jest tylko na wypisanie jednej liczby największej i najmniejszej. Myślę że może trzeba jeszcze jedną zmienną ,b' zadeklarować max2 i min2.
ale nie wiem jak to zrobić może trzeba zagnieżdzić pętlę. Proszę pomuszcie mi to zadanie na 5. Niechcem dostać gotowca ale żeby ktoś mnie nakierował. Z góry bardzo dziękuję ENTER ;p