В теме одно сообщение

[Санек]

Вводится число n. Далее следует n чисел. Найти сумму всех чисел.

Входные данные

n - количество элементов (n<=1000). Далее следуют n чисел.

Выходные данные

s - сумма всех чисел

Ввод

10

1 10 2 3 1 3 5 8 4 2

Вывод

39

Решение

var a:array [1..1000] of longint;
        n,i,s:longint;
begin
readln(n);  //ввод n - числа элементов в массиве
for i:=1 to n do //ввод чисел массива
  read(a[i]);
for i:=1 to n do //подсчет суммы всех элементов
  s:=s+a[i];
writeln(s); //вывод суммы
end.

[Anutka2020Plews]

GetSumMassive
Автор: Pa4enka

Описания: Очень простая функция, которая позволяет искать сумму элементов массива.

Особенности: -

Возвращает: сумму элементов массива.

Исходный код:

stock GetSumMassivearray, size = sizeof array new num = 0; fornew i; i < size; i num = num arrayi; return num;

Пример использования:

new array = 2, 2, 4;printf"Сумма массива: d", GetSumMassivearray;// Результат: 8
Сообщение отредактировал Pa4enka: 08 Октябрь 2019 - 18:22