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

Question

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

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

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

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

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

Answer 1

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.