вот 2 uses crt;
type mass=array[1..10,1..10] of real;
type M1=array[1..10] of real;
var E,F,D:mass;
i,j:byte;
M:M1;
sum,max:real;
kol:byte;
begin
clrscr;
writeln('Vvedite elementy matricy E:');
for i:=1 to 10 do
for J:=1 to 10 do
begin
write('E[',i,',',j,']: ');
readln(E[i,j]);
end;
writeln('Vvedite elementy matricy F:');
for i:=1 to 10 do
for J:=1 to 10 do
begin
write('F[',i,',',j,']: ');
readln(F[i,j]:8:4);
end;
for i:=1 to 10 do
for J:=1 to 10 do
D[i,j]:=E[i,j]/F[i,j];
writeln('Poluchennaja matrica 10:');
for i:=1 to 10 do
begin
for J:=1 to 10 do
begin
write(D[i,j]:5);
end;
writeln;
end;
sum:=0;
kol:=0;
for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
if (D[i,j]<0) then begin
sum:=sum+D[i,j];
kol:=kol+1;
end;
end;
if (sum<>0) then M[i]:=sum/kol else M[j]:=0;
sum:=0;
kol:=0;
end;
writeln('Srednee znachenie dlja kaczdogo rjada matricy D sredi otricatelnyh:');
for i:=1 to 10 do
write(M[i]:7:3);
max:=M[1];
for i:=2 to 10 do
if (max<M[i]) then max:=M[i];
writeln;
writeln('Maximalnoe',max);
readln;
end.
к сожалению вторую толком не проверял,но должно правильно работать)))
