Дан массив aa из nn целых чисел. требуется определить, превосходит ли 100 сумма элементов, которые больше 20. формат входных данных на первой строке входного файла записано натуральное число nn (n≤100)(n≤100) — число элементов в массиве. на следующей строке через пробел записаны элементы массива aa — целые числа (|ai|≤1000)(|ai|≤1000). формат выходных данных требуется вывести «yes», если сумма больше 100, иначе вывести «no».
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.