Паскаль: найти среднее

[Jore De-Fora]

Паскаль: найти среднее

Паскаль!

Найти среднее значение элементов массива B [5;5].
Каждый элемент массива разделить на среднее значение.
[MOD2]На будущее: не цепляйтесь к чужим темам - создавайте свои.
Модератор.[/MOD2]

 

[Vladimir_S]

Простите, но с задачами ясельного уровня мы, как правило, предлагаем участникам справляться самостоятельно. На чем же еще учиться, как не на подобной ерунде?

 

[Jore De-Fora]

просто у меня нету материала.отсутсвовал на занятиях по ув. причине.
но раз уж так, ладно.
и на этом, спасибо!

 

[Vladimir_S]

просто у меня нету материала.отсутсвовал на занятиях по ув. причине.
но раз уж так, ладно.
и на этом, спасибо!

Ну если по уважительной - ладно, сейчас нарисую.

 

[Jore De-Fora]

ок, буду ждать.спасибо большое за помощь.

 

[Vladimir_S]

Ну держите:

Var
 B:ARRAY[1..5,1..5] of Real;
 i,j:Integer;
 Med:Real;
BEGIN
 Med:=0;
 For i:=1 to 5 do
  For j:=1 to 5 do
   begin
    Write('B[',i,',',j,']= ');
    ReadLn(B[i,j]);
    Med:=Med+B[i,j];
   end;
 Med:=Med/25;
 WriteLn;
 WriteLn('Medium value is ',Med:10:3);
 WriteLn;
 WriteLn('Initial matrix:');
 WriteLn;
 For i:=1 to 5 do
  begin
   For j:=1 to 5 do
    Write(B[i,j]:10:3);
   WriteLn;
  end;
 WriteLn;
 WriteLn('Final matrix:');
 WriteLn;
 For i:=1 to 5 do
  begin
   For j:=1 to 5 do
    Write(B[i,j]/Med:10:3);
   WriteLn;
  end;
 ReadLn;
END.

 

[Jore De-Fora]

супер.благодарю