Технический форум

Технический форум (http://www.tehnari.ru/)
-   Помощь студентам (http://www.tehnari.ru/f41/)
-   -   Паскаль: найти среднее (http://www.tehnari.ru/f41/t48253/)

Jore De-Fora 01.03.2011 20:20

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

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

Vladimir_S 01.03.2011 20:30

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

Jore De-Fora 01.03.2011 20:35

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

Vladimir_S 01.03.2011 20:41

Цитата:

Сообщение от Jore De-Fora (Сообщение 476830)
просто у меня нету материала.отсутсвовал на занятиях по ув. причине.
но раз уж так, ладно.
и на этом, спасибо!

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

Jore De-Fora 01.03.2011 20:52

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

Vladimir_S 01.03.2011 20:59

Ну держите:
Код:

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 01.03.2011 21:02

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


Часовой пояс GMT +4, время: 22:38.

Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.