Дан массив 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.