Одномерный массив - Pascal (93984)

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

После введения с клавиатуры произвольного одномерного массива целых чисел (в границах знакового целого типа) вывести на экран их сумму. Введение каждого числа заканчивается нажиманием <Enter>, введение заканчивается введением числа 0

Решение задачи: «Одномерный массив»

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

program elenarii;
uses crt;
var
mas:array[1..100] of integer;
sum,i:integer;
begin
 clrscr;
 writeln('введите целое число ');
 sum:=0;
 for i:=1 to 100 do
 begin
   readln(mas[i]);
   if mas[i]<>0 then
   sum:=sum+mas[i]
   else break;
 end;
 writeln('сумма равна ',sum);
 readln;
end.

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

Объявление переменных:
- mas: массив целых чисел
- sum: переменная для хранения суммы
- i: счётчик для цикла
Очистка экрана и вывод сообщения для ввода числа
Инициализация переменной sum значением 0
Цикл по всем элементам массива
Чтение значения из каждого элемента массива и добавление его к сумме, если оно не равно 0
Вывод сообщения с суммой всех не равных 0 элементов массива
Ожидание ввода для завершения программы