Действия над элементами матрицы. Опции

[Korsar]

Люди прошу вас пожалуйста помогите мне срочно решить задачу у меня щас зачетная неделя! Ради бога помогите мне!!!!!!
Используя процедурные типы, составить программу для вычисления следующих характеристик матрицы, состоящей из 5 строк и 4 столбцов: 1) произведения всех элементов, 2) среднего арифметического всех элементов, 3)наибольшего элемента матрицы. Размер элементов матрицы от 0 до 10.

[Bard]

вот тебе паскалевский код этой задачи...

const
 n=5; m=4;
var
 max,i,j:longint;
 summa,p:int64;
 ar:array [1..n,1..m] of longint;
{********************************************}
procedure readdata;
 begin
  for i:=1 to n do
   begin
    for j:=1 to m do read(ar[i,j]);
    readln;
   end;
 end;
{********************************************}
procedure proizvedeniye;
 begin
  p:=1;
  for i:=1 to n do
   for j:=1 to m do p:=p*ar[i,j];
  writeln('Proizvedeniye: ',p);
 end;
{********************************************}
procedure sredne_ar;
 begin
  for i:=1 to n do
   for j:=1 to m do summa:=summa+ar[i,j];
  writeln('Sredneye arifmeticheskoye: ',(summa/(n+m)):0:5);
 end;
{********************************************}
procedure maksimum;
 begin
  for i:=1 to n do
   for j:=1 to m do
    if ar[i,j]>max then max:=ar[i,j];
    writeln('Naibolshiy element matritsi: ',max);
 end;
{********************************************}
begin
 readdata;
 proizvedeniye;
 sredne_ar;
 maksimum;
 readln;
end.

Сообщение отредактировано: Bard - 28.05.2007 17:40