Насколько я понял n должна быть меньше или равна 100, верно? Тогда вот, он, может и не самый эффективный, но довольно понятный и работающий.
#include <iostream>
using namespace std;
int main(){
int n,maks,schetchik; /* n - это количество элементов массива, maks - думаю, знаешь, schetchik - высчитывает количество повторений максимального числа в массиве */
cin >>n;
if(n<=100){
int a[n]; /*обьявляем количество эелементов массива и проверяем, чтобы его количество было меньше или равно 100*/
for(int i=0;i<n;i++){ /*цикл for обьявляет переменную i, далее делая её текущим индексом элемента массива */
cin >> a[i];
if (a[i]>-30000 && a[i]<30000){ /* проверка условия, данного задачей
*/
if(i==0){maks=a[i]; schetchik =1;}; /* особая разработка автора, максимальным элементом массива становиться самый первый элемент (ну по крайней мере, я ни у кого не видел) */
if (i!=0 && maks == a[i]) {schetchik +=1;}; /* и ещё одна моя собственная разработка, проверка, не является ли элемент массива первым, а так же если он равен максимальному, то счетчик увел. на 1 */
if (maks<a[i]) {maks = a[i]; schetchik = 1; }; /* а тут мы проверяем на то, не являеться ли текущий массив большим чем максимальный, если да, то счет сбрасывается и макс. равняется текущему числу */
}
}
cout << schetchik; } //ну и вывод числа, всё довольно просто
}
begin
for i:=1 to 5 do
begin
write ('Введите число: ');
readln (a);
if a mod 6 = 0 then
begin
s:=s+a;
k:=k+1
end
end;
writeln ('Cумма чисел, кратных 6, равна: ',s);
writeln ('Количество чисел, кратных 6, равно: ',k);
if (s<>0) and (s mod 4 = 0) then writeln ('Cумма чисел, кратных 6, делится на 4 нацело');
if (s<>0) and (s mod 4 <> 0) then writeln ('Cумма чисел, кратных 6, не делится на 4 нацело')
end.