Только что CopyPaste фрагменты программ и запустил с твоим примером. Результат верный (отличающийся от приведенного).
| Код |
{.$DEFINE Debug}
{$UNDEF Debug}
USES
CRT;
Const
m=3;{Допустим для теста массив 3х2}
n=2;
TYPE
TMassiv = array [1..m,1..n] of Real;
{$IFDEF Debug}
CONST
tda : TMassiv = ( (2, 2),
(3, 3),
(4, 4)
);
{$ENDIF}
Var
{$IFNDEF Debug}
tda : TMassiv; {Собственно массив}
{$ENDIF}
i, j : Integer; {переменные для работы с массивом}
k : Integer; {номер строки массива,
которая не рассматривается при вычислениях}
sTek : Real; {значение среднего арифметического текущей строки}
sMax : Real; {максимальное значение средних арифметических строк}
BEGIN
{$IFNDEF Debug}
WriteLn('Введите массив ',m,'x',n);
for i:= 1 to m do
for j:= 1 to n do read(tda[i,j]);
{$ENDIF}
WriteLn;
WriteLn('Введён массив ',m,'x',n);
for i:= 1 to m do begin
for j:= 1 to n do Write(tda[i,j]:10:3);
WriteLn;
end;
Write('Введите номер исключаемой строки (1..',m,') ');
ReadLn(k);
{найдем среднее арифметическое первой строки и будем временно считать его максимальным}
i:=1;
if i=k then i:=i+1; {если первую строку нужно пропустить - тогда рассмотрим вторую}
sMax:=0;
for j:=1 to n do sMax:=sMax+tda[i, j];
sMax:=sMax / n;
{теперь просматриваем все строки кроме k-ой, вычисляем среднее и сравниваем с максимальным}
{если текущее максимальное меньше текущего среднего, то sMax:=sTek}
for i:=1 to m do begin
if i=k then Continue;
sTek:=0;
for j:=1 to n do sTek:=sTek+tda[i, j];
sTek:=sTek / n;
if sMax<sTek then sMax:=sTek;
end;
WriteLn('Max=',sMax);
END.
|
|
)