Работа с одномерными массивами, Помогите решить задачку!!! Опции

[blacbaron]

Помогите решить задачку!!!
Задать массив состоящий из 10 целых чисел.
Найти максимальный элемент массива.
В 3 раза увеличить значение отрицательных элементов массива.
Найти кол-во ненулевых элементов массива.
ПОЖАЛУЙСТА.

ПРИМЕЧАНИЕ:
Решить её надо с помощью процедур.

М

Сообщения объеденены. А на будущее : существует кнопка ПРАВКА klem4

[virt]

procedure IncOtric(var mas: massiv); {в 3 раза увеличиваем значение отриц. эл-в}
begin
  for i:=1 to 10 do
    if a[i] < 0 then a[i]:=a[i]*a[i]*a[i];
end;