Дан массив a из n целых чисел. Требуется определить, превосходит ли 100 сумма элементов, которые больше 20.

спасибо

W3MMR странно но с такими входными данными не работает 4 и -10 5 7 21

Работает, просто вы вводите 5 чисел, а массив состоит из 6, так как первый элемент идет с 0, это моя ошибка, просто исправьте [1..N] и в циклах начиная с единицы var i:=1

Ещё раз спасибо

Написано на языке pascal