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

[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 21:40

[volvo]

Этот код не соответствует условию, Bard, кроме того - он не для того Паскаля... Int64 в стандартном Паскале нет, а процедуры и процедурные типы - это СОВСЕМ не одно и то же!

[Korsar]

а что что такое процедурные типы? блин прошу вас сделайте кто нибудь как нужно!!! Bard большое спасибо тебе за помощь!!!!

[мисс_граффити]

Процедурные типы

[Korsar]

ну пожалуйста решите кто нибудь задачку!!!

[Korsar]

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

Сообщение отредактировано: Korsar - 29.05.2007 4:04

[Korsar]

ну хоть кто нибудь помогите!!!!

[Ozzя]

Задача про передвижение в пределах экрана

[Korsar]

задачу про передвижение сделал!!! осталась только одна задача и все у меня зачет!!! пожалуйста помогите кто нибудь!!!

[Korsar]

ну что вам стоит?