Tak jak w temacie mam problem z obliczeniem najmniejszej liczby w procedurze. Program jakby bierze pod uwagę tylko ostatnią tablicve i znią porównuje. W czym zrobiłem błą byłbym wdzięczny za szybką pomoc.
program menu;
var
a:integer;
procedure najmniejsza;
var
tab:array[1..3,1..3]of integer;
a,b,min:integer;
begin
for a:=1 to 3 do
for b:=1 to 3 do
tab[a,b]:=random(10);
for a:=1 to 3 do
for b:=1 to 3 do
writeln('tab[',a,',',b,']',tab[a,b]);
min:=tab[a,b];
if tab[a,b]<min then
min:=tab[a,b];
writeln('najmniejsza ',min);
end;
procedure najwieksza;
var
tab:array[1..3,1..3]of integer;
a,b,max:integer;
begin
for a:=1 to 3 do
for b:=1 to 3 do
tab[a,b]:=random(10);
for a:=1 to 3 do
for b:=1 to 3 do
writeln('tab[',a,',',b,']',tab[a,b]);
max:=tab[a,b];
if tab[a,b]>max then
max:=tab[a,b];
writeln('najwieksza ',max);
end;
begin
writeln('wybierz co teraz zrobic?');
readln(a);
if a=1 then najmniejsza;
if a=2 then najwieksza;
readln;
readln;
end.