Матрица

uses crt;
var
E:array [1..6,1..8] of real;
i,j:byte;
sum: real;
max: real;
nmax:real;
begin
clrscr;
randomize;
sum:=0;
max:=-1000;
for i:= 1 to 6 do begin
for j:= 1 to 7 do begin
E[i,j]:=random (21);
E[i,j]:=E[i,j]-10;
write(E[i,j]:6:0);
sum:=sum+E[i,j];
end;
E[i,8]:=sum/7;
writeln;
end;
writeln;
writeln;
for i:= 1 to 6 do begin
for j:= 1 to 8 do begin
write(E[i,j]:6:1);
end;
writeln;
end;
for i:=1 to 6 do
if E[i,8]>max then max:=E[i,8];
write('max=',max:6:1);
write<'stroka=',nmax:0:0];
 
readln;
end.

max:=e[1,k];//пока максимальный первый в столбце k
imax:=1;//его номер
for i:=2 to n do/идем дальше по столбцу до конца(n-количество строк)
if e[i,k]>max then//если больше
 begin
  max:=e[i,k];//то это максимальный
  imax:=i;//его номер в столбце
 end;

var e:array [1..6,1..8] of real;
    i,j,nmax:byte;
    sum,max: real;
begin
randomize;
sum:=0;
max:=-1000;
for i:= 1 to 6 do
 begin
  for j:= 1 to 7 do
   begin
    e[i,j]:=-10+20*random;
    write(e[i,j]:6:2);
    sum:=sum+e[i,j];
   end;
  e[i,8]:=sum/7;
  writeln;
 end;
writeln;
for i:= 1 to 6 do
 begin
  for j:= 1 to 8 do
  write(e[i,j]:6:2);
  writeln;
 end;
max:=e[1,8];
nmax:=1;
for i:=1 to 6 do
if e[i,8]>max then
 begin
  max:=e[i,8];
  nmax:=i;
 end;
writeln('max=',max:0:2);
write('stroka=',nmax);
end.