Задано: массив P = (P1,P2,...,Pn) .
Определить: сумму элементов массива.
Исходные данные:
N - размер массива;
P - массив размером N;
Результат: S - сумма элементов;
Вспомогательная переменная: I - индекс - управляющая переменная цикла.
Procedure SUMMA (n : integer; A :mas; var S : real );
{ процедура для суммирования элементов одномерного массива }
begin S:=0; { обнуление переменной под сумму }
for i := 1 to n do S := S+P[i]
end;
Опубликовал Kest
November 12 2008 21:14:18 ·
0 Комментариев ·
12181 Прочтений ·
• Не нашли ответ на свой вопрос? Тогда задайте вопрос в комментариях или на форуме! •
Комментарии
Нет комментариев.
Добавить комментарий
Рейтинги
Рейтинг доступен только для пользователей.
Пожалуйста, залогиньтесь или зарегистрируйтесь для голосования.
Нет данных для оценки.
Гость
Вы не зарегистрированны? Нажмите здесь для регистрации.
Главная
Каталог файлов
