Mam zadanie:
Program w Turbo Pascalu ma wyszukać z podanego ciągu n-elementów liczbowych element najmniejszy i największy. Podkreślam, że tylko liczbowych elementów.
Męczymy się z kumplem i doszliśmy jedynie do programu, w którym wprowadza się 5 elementów, a komp zajmuje się wybieraniem. Proszę o pomoc, bo TP nie widziałem od roku.
A tak wygląda nasze "dzieło":
program minmax;
uses crt;
var A:array[1..5] of real;
licznik:integer;
min:real;
max:real;
begin
clrscr;
writeln('podaj 5 dowolnych liczb, a ja wybiorę najmniejszą i największą');
for licznik:= 1 to 5 do {pętla odczytuje wprowadzone liczby}
readln(a[licznik]); {zapamiętuje je pod kolejnymi}
licznik:=1; {indeksami 1,2,3,4,5}
min:=A[licznik]; {zakładam, że najmniejsza to 1 liczba}
repeat
inc(licznik); {zwiększenie zmiennej licznik o 1}
if min>a[licznik] then
min:=A[licznik] {porównanie dwóch liczb}
else
min:=min;
until
licznik=5; {warunek zakończenia pętli}
writeln('najmniejsza z podanych liczb to:',min:5:2);
licznik:=1;
max:=A[licznik];
repeat
inc(licznik);
if max