tablica z liczbami rzeczywistymi, a najwieksza i najmniejsza z tych liczb

0

Witam
Właśnie czytałem sobie książkę o pascalu i znalazłem tam ćwiczenie: "Napisz program, który wczytuje tablicę 3x4 liczb rzeczywistych, a następnie wypisuje największą i najmniejszą w każdym wierszu.

Zacząłem to tak ale coś wyskakują błędy.

type
        t1 = array[1..3, 1..4] of real;
var
        a:t1;
        x,n:integer;
function najw (var a:t1; n:integer):integer;
var
        i,x:integer;
begin
        x:=a[1]
        for i:=1 to n do
        if a[i] > x then x:=a[i];
        najw:=x
end;

begin
        n:=0;
        repeat
                readln(x);
                if x>0 then begin n:=n+1;
                a[n]:=x;
        end;
        until (x <= 0) or (n=4);
        if n>0 then
        writeln('Najw. element to:', najw(a,n))
        else
        writeln('Blad');
        readln

end.

Proszę o pomoc.
Proszę się nie śmiać bo na prawdę dopiero co zaczynam moją przygodę z programowaniem. ;)
Pozdrawiam

0

tablicę masz dwuwymiarową a odwołujesz się do niej jak do jednowymiarowej. To raz a dwa to jak chcesz znaleźć największą i najmniejszą w każdym wierszu to będziesz potrzebował zmienną, która przechowa min w wierszu 1, w wierszu 2, w wierszu 3, w wierszu 4 oraz max w wierszu 1, w wierszu 2, w wierszu 3, w wierszu 4. Dodatkowo w tej pętli w procedurze trzeba oprócz max znaleźć też pozostałe. Zamiast 8 zmiennych dla min i max możesz też przechować je w tablicy lub rekordzie

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0