Написать процедуру вычисляющую сумму элементов одномерного массива пригоддную для использование с любым массивом типа mas и с любым кол-вом элементов! Опции

[Help]

Помогите мне с паскалем напишите вычисление суммы элементов одномерного массива через процедуру.Буду очень признателен!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

[savef5]

Маленькая поправочка. "Массив типа мас", а у Зюзюка - переменная мас. Да и размер массива не передаётся.

procedure(A:mas);
  var
	I, Sum: Integer;
  begin
	Sum := 0;
	For I := Low(A) to High(A) do
	Sum := Sum + Mas[I];
  end;

Данная п/п хранит значение суммы только в подпрограмме и не передаёт его в о/п

Сообщение отредактировано: savef5 - 23.12.2007 16:03