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

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

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, кроме того - он не для того Паскаля... Int64 в стандартном Паскале нет, а процедуры и процедурные типы - это СОВСЕМ не одно и то же!

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

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

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

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

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

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

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

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