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

[Help]

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

[Зюзюка]

procedure(mas:ar);
var i,sum:integer;
begin
sum:=0;
for i:=1 to n do
sum:=sum+mas[i];
end;

тока через type нужно будет массив описать например type ar=array [1..n] of integer;

p.s Ну ваще я не шарю так что может не работать =))

Сообщение отредактировано: volvo - 27.11.2009 20:26