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

Формат входных данных

На первой строке входного файла записано натуральное число nn (n≤100) (n≤100) - число элементов в массиве. На следующей строке через пробел записаны элементы массива aa - целые числа (|ai|≤1000) (|ai|≤1000).

Формат выходных данных

Требуется вывести "YES", если сумма больше 100, иначе вывести "NO".

Program s;

var a:array [0 ... 100] of integer; / / 100-количество элементов массива, можно поменять на ваше число

n, i, s:integer;

begin

write ('Введите число элементов массива : ') ;

read (n) ; / / Количество элементов массива

write ('Введите элементы массива через пробел : ') ; / / Эту строчку можно не писать (по желанию)

for i:=1 to n do

begin

read (a[i]) ; / / Вводим элементы через пробел

s:=s+a[i]; / / Суммируем элементы массива end;

if s>100 then write (' Yes ')

else write (' No ') ;

end.