C. Сумма больших С клавиатуры вводится несколько чисел.
Найдите сумму чисел, превышающих 4.

Формат ввода
В первой строке вводится количество чисел n. 0 ≤ n ≤ 1000.

В следующей строке вводятся подряд n чисел ai через пробел. 0 ≤ ai ≤ 1000.

Формат вывода
Выведите сумму чисел, больших 4. Если таких чисел нет, выведите 0.

Пример
Ввод Вывод
4 5
2 5 3 4

Вот и код на паскале :)
program nechotnie;    const size=1000;//максимальное количество елементов масcива     var a:array[1..size] of longint;       i,n,neparni:longint;begin   readln(n); //вводим количество елементов в массиве   neparni:=1; //для вычисление произведение елементов масива надо всегда брать начальное значение 1 а если надо суму то 0   for i:=1 to n do      begin         a[i]:=random(-10,10); //заполняем масив случайными числами         if i mod 2<>0 then neparni:=neparni*a[i]; // если индекс i непарный,то умножаем значение для вычислений на етот елемент      end;   writeln(neparni); //вывод произведенияend.

Внешний вид

Существует много информации, касающейся используемых инструментов в последних версиях программы от Microsoft, к примеру, так называемых "лент". Последняя представляет собой совокупность меню и различных панелей инструментов. Работа с таким интерфейсом весьма удобна и позволяет любому пользователю в течение недолгого времени легко адаптироваться к ней. Основная же проблема заключается не в сущности идеи ленты, а касается неудобного размещения элементов на ее поверхности, вопреки большим стараниям разработчиков свести схожие по назначению функции вместе. Найти настройки, к примеру, доставляет немало сложностей, а сведение некоторых инструментов имеет вид скорее хаотичный, нежели старательно упорядоченный. Так, к примеру, привычные по старым версиям функции в меню "Файл" и "Правка" в последних версиях встречаются в разбросанном виде по меню "Главная" и "Вставка". Такие нововведения могут доставить некоторые неудобства пользователям, привыкшим к элементам из меню "Файл" и "Правка".

Объяснение: