Дан массив целых чисел. Найти сумму элементов массива, больших данного числа А

грок пытается их угадать, вводя свои числа. Если они совпали(в указанном порядке), то игрок выиграл (выводится сообщение-"попал"). Иначе-сообщение "мимо".

с финиками. Известно, что если осёл вёз финики, то козёл вёз масло. Если осёл вёз масло, то верблюд вёз финики. Если козёл вёз финики, то верблюд вёз масло. Кто из животных всегда тащил одно и то же?

2.Дан массив целых чисел из 25 элементов. Заполнить его случайными числами от 0 до 50. Заменить все четные элементы на их квадраты, а нечетные удвоить.

а) Сумму элементов массива, больших данного числа А (А вводить с клавиатуры).

2)Дан массив целых чисел.Найти сумму четных положительных чисел, стоящих на нечетных местах и количество отрицательных элементов, стоящих на четных местах.
3)дан массив целых чисел.найти сумму четных и положительных элементов, расположенных до первого отрицательного элемента.Примечание:при вводе необходимо учесть, что первый элемент не может быть отрицательным.

типо по такой же системе которую щас напишу! program Maximum; i,n,max:integen; begin writeln ( 'введи элементы массива для поиска максимума'); for i:=1 to 10 do begin write ('a [', i ,']=');readln (a [ i ] ) ;end; max:=a[1]; for i = 2 to 10 do if a [ i ] > max then begin max:=a [ i ] ; n:= i ; end; writeln ('найти наибольший элемент ',max ,' под номером ', n); вот наподобие этого примера нужно построить мою задачу! в заданной последовательности целых чисел определите сумму элементов кратных 10. Помогите пожалуйста!!!