Тема ПОДПРОГРАММЫ
Вам дается "затравка" подпрограммы а нужно 
реализовать эту подпрограмму.


Задание 1

Дан массив глобальный массив M 100 элементов
Реализовать подпрограмму, записи в массив нулей
(обнуление массива)

PROGRAM CLR;
VAR
 M:ARRAY[1..100]OF INTEGER;

PROCEDURE CLR_MASSUV;
BEGIN
 ????????????
END;

-----------------------------
Задание 2

Напишите тело подпрограммы, которая считает сумму всех элементов
глобального массива "М"
и возвращает сумму в параметре "К"

PROGRAM SUM;
VAR
 M:ARRAY[1..100]OF INTEGER;

PROCEDURE SUMMA(VAR K:INTEGER);
BEGIN
 ????????????
END;


----------------------------
Задание 3

Напишите тело подпрограммы, которая считает 
Среднее двух целых чисел
Обратите внимание, что результат надо вернуть вещественный
Ну например среднее между 1 и 2 равно 1.5  :-)


PROCEDURE SREDNEE(S1,S2:INTEGER;VAR REZ:REAL);
BEGIN
 ????????????
END;

----------------------------
Задание 4

Напишите тело подпрограммы, которой передается
вещественное число (переменная) а возвращается число  
поделенное пополам!
Даем "3" получаем "1.5"
          

PROCEDURE IZM(VAR Z:REAL);
BEGIN
 ????????????
END;

----------------------------
Задание 5

Сложное.
Дан сложный тип RECORD, который описывает игрока в игре
Напишите подпрограмму, которая обнуляет игрока в игре
Для этого она должна в координаты "X" и "Y" записать случайные числа от 1 до 500
(это размер игрового поля.)
и присвоить игроку максимальную жизнь (100)
Эта подпрограмма будет вызываться когда игрок погиб и нужно 
его возродить в случайных координатах


PROGRAM SUM;
TYPE
  T_IGROK=RECORD
    X,Y:INTEGER; //  координаты на поле
    LIVE:INTEGER;//  Жизнь игрока (Максимум 100)
   END;



PROCEDURE ZERO_IGR(VAR K:T_IGROK);
BEGIN
 ????????????
END;