Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  ekemeke
Language: PASCAL
Code:
program tablica_2_wymiary;
var
tab:array[1..5,1..5]of integer;
st1,st2,max,i,d,prze2,prze1:integer;

begin
randomize;

for i:=1 to 5 do begin
    for d:=1 to 5 do begin
       tab[i,d]:=random(1000);
    end;
end;

for i:=1 to 5 do begin
    for d:=1 to 5 do begin
    write(tab[d,i],' | ' );
    end;
writeln;
end;
max:=0;
st1:=0;
st2:=0;
for i:=1 to 5 do begin
    for d:=1 to 5 do begin
    if tab[i,d] > max then begin
    max:= tab[i,d];
    st1:=i;
    st2:=d;
    end;
    end;
end;

writeln('dane najwiekszej liczby to <',st1,',',st2,'>');

readln;
end.
Comments: