[maksimko]

вот код,только не знаю на сколько он правильный,может есть ошибки:

Код:

program Laba3;
   {$APPTYPE CONSOLE}
uses SysUtils, math;
const m=5; n=3;
var MAS: array[1..m, 1..n] of byte;
    min,max: byte;
    i,j, k, o: integer;
    L: real;
begin
 randomize;
 for i:=1 to m do begin
  for j:= 1 to n do begin
   MAS[i,j]:= random(10);
   write(MAS[i,j]:2,' ');
  end;
  writeln;
 end;
 writeln('- - - - -');

 min:=1; max:=1;
 for i:=1 to m do
  for j:=1 to n do begin
   if MAS[i,j]<min then min:=MAS[i,j]; k:=i; o:=j;
   if MAS[i,j]>max then max:=MAS[i,j];
  end;
 L:=(min+max)/2;
 writeln('L = ',L:4:2);
 writeln('min = ',min);
 writeln('max = ',max);
 writeln('InDekSi=', k:2,'  and', o:3 );
 readln;
end.

И курсовики такие в СПБГПУ политех)Зато по начерталке,химии и матану дерут ой как хорошо)