Question

СРОЧНО, нужна помощь! Достаточно легкая задача на среднюю арифметическую.
Паскаль
Заменить в двумерном массиве элементы, значение которых меньше среднего арифметического всех элементов массива, на средний. Вывести измененный массив.
Помогите, пожалуйста!

Answer 1

Ответ:

program Average;

var

 a: array [1..10, 1..10] of Real;

 i, j: Integer;

 s: Real;

begin

 Randomize;

 for i := 1 to 10 do begin

   WriteLn;

   for j := 1 to 10 do begin

     a [i, j] := Random (100);

     Write (a [i, j] :6 :2);

   end;

 end;

 s := 0;

 for i := 1 to 10 do begin

   for j := 1 to 10 do begin

     s := s + a [i, j];

   end;

 end;

 s := s / 100;

 WriteLn;

 WriteLn ('Среднее = ', s :6 :2);

 for i := 1 to 10 do begin

   for j := 1 to 10 do begin

     if a [i, j] < s then

       a [i, j] := s;

   end;

 end;

 for i := 1 to 10 do begin

   WriteLn;

   for j := 1 to 10 do begin

     Write (a [i, j] :6 :2);

   end;

 end;

 ReadLn;

end.