Найти сумму элементов заданной линейной таблицы - Free Pascal (407)

Формулировка задачи:

Найти сумму элементов заданной линейной таблицы.

Решение задачи: «Найти сумму элементов заданной линейной таблицы»

Листинг программы

const
 n=20;
var
 i,sum:integer;
 a:array [1..n] of integer;
begin
 sum:=0;
 for i:=1 to n do
  begin
   readln(a[i]);
   sum:=sum+a[i];
  end;
 writeln(sum);
end.

Объяснение кода листинга программы

В данном коде представлена программа на языке Free Pascal, которая выполняет следующие действия:

Объявляет константу n равную 20, которая определяет размер массива.
Объявляет переменные i и sum типа integer (целое число).
Объявляет массив a типа array [1..n] of integer, который содержит 20 элементов целых чисел.
Инициализирует переменную sum значением 0.
Запускает цикл for от 1 до n, который выполняет следующие действия:
- Считывает значение элемента массива a[i] с помощью функции readln().
- Добавляет значение элемента массива к переменной sum.
Выводит значение переменной sum на экран с помощью функции writeln(). Таким образом, программа считывает значения 20 элементов массива, суммирует их и выводит полученную сумму на экран.