Найдите сумму элементов одномерного массива. Размер произвольный .Напишите программу В Паскале​

// PascalABC.NET

begin

 var n := ReadInteger('Число элементов массива:');

 var a := ReadArrReal('Введите элементы массива:', n);

 Print('Сумма равна', a.Sum)

end.

      Чтобы ответить на вопрос «сколько информации?», надо определить единицу информации каждого символа. Для алфавита (набора букв, цифр, скобок, знаков препинания и других символов) существует понятие информационного веса символа — количества информации, которое несет один символ алфавита, которое обозначается как i и выражается в битах (bit).
      Количество информации в сообщении, представленного символами, складывается из информационных весов і составляющих его символов, причём информационный объём сообщения I равен произведению количества символов в сообщении k на информационный вес символа алфавита i, что записывается как I = k×i.
     Из сообщения в задании следует, что количество всех неповторяющихся символов алфавита неизвестной планеты равно 8. Для такого алфавита і = 3 bit (так как 2³=8), а следовательно, поскольку в этом сообщении k = 12 символов, то информации оно несёт l = k×i = 12×3 = 36 bit.

mas = []

for i in range(1000):

   n = int(input())

   while ((0 > n) or (n > 300)):

       print("Enter n in interval: 0 < n < 300")

       n = int(input())

   if (n == 0):

       break

   else :

       mas.append(n)

#В даном цыкле мы заполнили масив mas[] всеми елементами, которые вводились из клавиатуры и подпадали под определение - 0 < n < 300

print("1 (mas)")

print(*mas)

print()

mas_peregon = []

for i in range(len(mas)):

   if ((mas[i]//100) > 0):

       mas_peregon.append(mas[i])

   else :

       continue

#В даном цыкле мы заполнили масив mas_peregon[] всеми елементами, которые есть в масиве mas[] и являются трехцыфовыми числами

print("2 (mas_peregon)")

print(*mas_peregon)

print()

mas_kr_4 = []

for i in range(len(mas_peregon)):

   if ((mas_peregon[i]%4) == 0):

       mas_kr_4.append(mas_peregon[i])

   else :

       continue

#В даном цыкле мы заполнили масив mas_kr_4[] всеми елементами, которые есть в масиве mas_peregon[] и есть кратными четырём

print("3 (mas_kr_4)")

print(*mas_kr_4)

print()

s = 0

for i in range(len(mas_kr_4)):

   s = s + mas_kr_4[i]

#В даном цыкле мы нашли суму елементов масива mas_kr_4

print(s)

Объяснение:

Можно было сделать на один цыкл меньше, но я уже не стал исправлять. Кстати, реализовано на Python 3