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