profile="http://gmpg.org/xfn/11"> Найти сумму элементов одномерного массива, Паскаль. | Разработчику о работе с 1С:Предприятие, Pascal, Паскаль

Найти сумму элементов одномерного массива, Паскаль.

Найти сумму элементов одномерного массива, Паскаль.
Решение:

program Task_Suma_Arr;

  {задачи на числа паскаль с решением}
  {Найти сумму элементов одномерного массива, Паскаль.}
var
  i, i_Sum: integer;
  i_ArrNum: array[1..10] of integer;

begin
  WriteLn('Задача, Найти сумму элементов одномерного массива, Паскаль.,:');
  WriteLn('Введите 10 (десять) чисел:');
  for i := 1 to 10 do
    ReadLn(i_ArrNum[i]);
  i_Sum := 0;//переменная, записываем сумму элементов одномерного массива
  i := 1;
  repeat
    i_Sum := i_Sum + i_ArrNum[i]; //суммируем значения элементов одномерного массива
    i := i + 1;
  until i > 10;
   //Вывод на экран 
  WriteLn('Сумма элементов одномерного массива = ', i_Sum);

  //завершение работы программы
  WriteLn('Нажмите <Enter>, чтобы выйти.');
  ReadLn();
end.

Результат:
Найти сумму элементов одномерного массива, Паскаль
Найти сумму элементов одномерного массива, Паскаль.

Дополнительные материалы:
Найти минимальный элемент массива, паскаль.
Найти минимум и максимум в массиве — Pascal (Паскаль).
Найти минимальное число в массиве, паскаль.
Минимальное значение, которое может иметь число типа Integer в Паскале.
Найти минимальный элемент массива и его порядковый номер. Паскаль (Pascal).

Комментарии запрещены.