Оформление процедуры с массивами

[_Игорек_]

Подскажите, как будет оформить процедуру с одномерным массивом. Например:
A[1]+A[2]+A[3]

для Pascal 7.0*

 

[Vladimir_S]

Подскажите, как будет оформить процедуру с одномерным массивом. Например:
A[1]+A[2]+A[3]

для Pascal 7.0*

Прежде всего - не лезть в чужие темы, а создавать свои. Сейчас я это сделал за Вас.
А оформить - например, так:

TYPE
 AR=Array[1..3] of Integer;
VAR
 A:AR;
 S:Integer;

Procedure Sum(As:AR; var Ss:Integer);
Var i:Integer;
Begin
 Ss:=0;
 For i:=1 to 3 do Ss:=Ss+As[i];
End;

BEGIN
 A[1]:=3;
 A[2]:=5;
 A[3]:=7;
 Sum(A,S);
 Writeln('Sum= ',S);
 Readln;
END.

 

[_Игорек_]

Спасибо большое за ответ, извините за нарушение правил.
Владимир, можно ли узнать ваш скайп для дальнейшего обсуждения некоторых возникающих проблем. Часто пользуюсь паскалем и иногда сталкиваюсь с некоторыми элементарными проблемами, которые не в состоянии решить самостоятельно. Еще раз спасибо.

 

[Vladimir_S]

Владимир, можно ли узнать ваш скайп

Не-а... за неимением такового. Я по возрасту соответствую своей аватарке, а потому ни скайпов, ни твиттеров, ни даже Асек... Так что лучше всего выкладывайте проблемы на форум - и другим полезно, да и коллеги поддержат: я ведь тоже далеко не всё в Паскале знаю.

 

[Mr.П 2.0]

_Игорек_ моя аська:624917451 обращайся.
И тебе точно нужна сумма 3 элементов массива или до N