Matematické Fórum

var
  Application: TMyApplication;
  i,j,max,min:integer;
  mat:array[1..10,1..10] of integer;  //max a min prvek matice
  begin
  randomize;
  for i:=1 to 10 do begin
    for j:=1 to 10 do
    mat[i,j]:=random(10)-6;
  end;
  writeln('generovana matice');
  for i:=1 to 10 do begin
    for j:=1 to 10 do
    write(mat[i,j]:4);
    writeln;
  end;
  max:=0;
  min:=0;
  for i:=1 to 10 do begin
      for j:=1 to 10 do
       if mat[i,j]>max then
       max:=mat[i,j];
      if mat[i,j]<min then
      min:=mat[i,j];
      writeln;
       end;
  writeln('max prvek je:',max);
  writeln('min prvek je:',min);

  writeln('diagonala');

  for i:=1 to 10 do begin     //vybrani diagonaly
      for j:=1 to 10 do

  end;
  readln;
end.