Вводится 5 любых чисел. подсчитать сумму и количество чисел, кратных 6. определить, делится ли на 4 полученная сумма. pascal abc оператор for.

Var a,s,i,k: integer;
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.

1) a:=x div 100 (в переменную а присваивается переменная x деленная на 100 без остатка, по другому a= x/100 без остатка, a=125/100= 1.25 b ,и берем только 1, a=1 )
2) b:=x mod 100 div 10 (в переменную b присваивается переменная x деленная на 100 b и берется остаток, а потом число которое получилось делиться на 10 и берется только целая часть,b = 125/100=1,25 берем только 25, 25/10=2,5 берем целую часть то есть 2, b=2 )
3) c:=x mod 10 (в переменную с присваивается переменная x деленная на 10, по другому с= x/10 без остатка, с=125/10= 12,5 b ,и берем только 5, с = 5)
4) s:=a *b*с=1*2*5=10

Насколько я понял 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; } //ну и вывод числа, всё довольно просто

}