Vanilla 1.1.5a jest produktem Lussumo. Więcej informacji: Dokumentacja, Forum.
program max;
uses crt;
const maxwier=20;
maxkolm=20;
var tab:array[1..maxwier,1..maxkolm] of integer;
m,n,i,j,pkol,pwier:integer;
begin
clrscr;
write('Podaj rozmiary tablicy: ');
read(m,n);
writeln('Podaj elementy tablicy ');
for i:=1 to m do
begin
writeln('Podaj elementy ', i, ' wiersza: ');
for j:=1 to n do
read(tab);
end;
pwier:=1;
pkol:=1;
for i:=1 to m do
for j:=1 to n do
if tab[i,j]>tab[pwier,pkol] then
begin
pwier:=i;
pkol:=j;
end;
writeln;
writeln('Nawiekszy element to: ',tab[pwier,pkol],' jego polozenie:',pwier,' ',pkol);
end.
ale cos jest nie tak
Od 1 do 1 z 1