Code
Program es;
uses crt;
Var i,j,l:integer; k,st,p:real;
A:array [1..5,1..6] of real;
Sr:array [1..2] of real;
begin
clrscr;
for i:=1 to 2 do begin
for j:=1 to 3 do begin
writeln('введи значение эл-та,находящегося по адресу ',i,':',j);
readln(a[i,j]);
end;
end;
for i:=1 to 2 do begin
for j:=1 to 3 do begin
st:=st+a[i,j];
end;
sr[i]:=st/3;
st:=0;
end;
for i:=1 to 2 do begin
writeln('Среднее значение ',i,'-ой строки',sr[i]:3);
for j:=1 to 3 do begin
if a[i,j]>sr[i] then begin
writeln('элемент больший среднее значения-',a[i,j]);
end;
end;
end;
readln;
end.
Вот эта программа! Если всё правильно понял))
Размер матрицы задаёшь сам
