Определить значение среднего арифметического массива

@ANSNEKIT · Регистрация: 12.12.2013

Здравствуйте! Вот моя задача, которую я попытался решить:
"Определить значение среднего арифметического ("SR") всего массива . Заменить в каждой строке массива минимальный элемент на значение SR. Выдать на печать преобразованный массив."

Минимальные элеметы в каждой строке я нашел, они отображаются, но с заменой их на среднее арифметическое ничего не получается. Заменяются либо не те элементы, либо вообще ничего не заменяется! Помогите исправить.

Pascal

Program matr;
const 
     N1=4{10};
     M1=3{15};
var 
    L: array [1..N1,1..M1] of real;
    N,M: byte;
    i,j: integer;
    SR,S,min: real;
    
BEGIN
writeln ('Введите кол-во элементов в матрице');
readln (N,M);
for i:= 1 to N do
  for j:=1 to M do
     begin
           write ('L[',i,',',j,']=');
           readln (L[i,j]);
     end;
    writeln ('Ввод матрицы завершен'); 
     
for i:= 1 to N do
  S:=0;
  for j:=1 to M do
     S:=S+L[i,j];
     SR:=S/(N*M);
     writeln('SR=',SR:2:2);
          
  for i:=1 to N do
           {begin}
              min:=L[i,1];
              for j:=1 to M do
                if L[i,j]<min then
                  min:=L[i,j];
                  writeln('min=',min);  
            {end;}
        
  for i:= 1 to N do    
  for j:=1 to M do {ошибка, я думаю, где-то в этом блоке (может бегин-энд не поставил,может скобки забыл х.з.)}
    if L[i,j]=min then 
       L[i,j]:=SR;
  
               
writeln ('матрица L:');  
for i:=1 to N do
   begin
      for J:=1 to M do
      Write(L[i,j]);
      writeln;
   end;
writeln ('Вывод матрицы заверцен');
END.

@pahuss · 17.12.2013, 19:29

Pascal

Program matr;
const
     N1=4{10};
     M1=6{15};
var
    L: array [1..N1,1..M1] of real;
    N,M: byte;
    i,j: integer;
    SR,S,min: real;
 
BEGIN
writeln ('êîëè÷åñòâî ýëåìåíòîâ â ìàòðèöå');
readln (N,M);
for i:= 1 to N do
  for j:=1 to M do
     begin
           write ('L[',i,',',j,']=');
           readln (L[i,j]);
     end;
    writeln ('ââîä ìàòðèöû çàâåðøåí');
S:=0;
for i:= 1 to N do
  for j:=1 to M do
     S:=S+L[i,j];
     SR:=round(S/(N*M));
     writeln('SR=',SR:2:2);
 
  for i:=1 to N do
      min:=L[i,1];
              for j:=2 to M do begin
                if L[i,j]<min then
                  min:=L[i,j];
                  end;
                  writeln('min=',min);
 
 
  for i:= 1 to N do
  for j:=1 to M do begin{??????, ? ?????, ???-?? ? ???? ????? (????? ?????-??? ?? ????????,????? ?????? ????? ?.?.)}
    if L[i,j]=min then
       L[i,j]:=SR
       end;
 
writeln ('ìàòðèöà L:');
for i:=1 to N do begin
     writeln;
      for J:=1 to M do
      Write(L[i,j],' ');
      end;
 
writeln ('âûâîä ìàòðèöû çàâåðøåí');
END .

@ANSNEKIT · 17.12.2013, 20:10 **[ТС]**

Нет не получилось! Он заменяет только последний найденный минимальный элемент матрицы, а должен в каждой строке найти минимумы и эти минимумы заменить на среднее SR.

@pahuss · 18.12.2013, 00:04

Ну как нет, если он в каждой строке находит минимумы и заменяет на среднее...

Добавлено через 34 минуты

Pascal

Program matr;
const
     N1=4{10};
     M1=6{15};
var
    L: array [1..N1,1..M1] of real;
    N,M: byte;
    i,j: integer;
    SR,S,min: real;
 
BEGIN
writeln ('êîëè÷åñòâî ýëåìåíòîâ â ìàòðèöå');
readln (N,M);
for i:= 1 to N do
  for j:=1 to M do
     begin
           write ('L[',i,',',j,']=');
           readln (L[i,j]);
     end;
    writeln ('ââîä ìàòðèöû çàâåðøåí');
S:=0;
for i:= 1 to N do
  for j:=1 to M do
     S:=S+L[i,j];
     SR:=S/(N*M);
     writeln('SR=',SR:2:2);
 
  for i:=1 to N do begin
      min:=L[i,1];
              for j:=1 to M do begin
                if (L[i,j] <= min) then
                  min:=L[i,j]; end;
                  writeln('min',i,'=',min);
              for j:=1 to M do
                if L[i,j]=min then L[i,j]:=SR;
                end;
 
 
writeln ('ìàòðèöà L:');
for i:=1 to N do begin
     writeln;
      for J:=1 to M do
      Write(L[i,j],' ');
      end;
 
writeln ('âûâîä ìàòðèöû çàâåðøåí');
END .

Добавлено через 30 секунд
Вот исправил.

Определить значение среднего арифметического массива

Решение

Решение

@ANSNEKIT 0 / 0 / 0 Регистрация: 12.12.2013 Сообщений: 5
	17.12.2013, 20:10 [ТС]	3
	Нет не получилось! Он заменяет только последний найденный минимальный элемент матрицы, а должен в каждой строке найти минимумы и эти минимумы заменить на среднее SR. 0

Опции темы