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

[Help]

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

[volvo]

Не будет эта процедура работать по условию... Написано:

с любым кол-вом элементов!

, чтобы этого добиться, надо использовать открытые массивы:

procedure(const A: array of mas_type; const size: integer);
var
  I, Sum: Integer;
begin
  Sum := 0;
  For I := 0 to pred(size) do 
	Sum := Sum + A[I];
end;

Вот теперь процедуру можно использовать и на массиве из 10, и на массиве из 50 элементов...

Сообщение отредактировано: volvo - 23.12.2007 12:11