#include <iostream>
using namespace std;
int main(){
int n, count = 0, suma = 0;
cout<<"Vvesti kolichestvo elementow massiva\n";
cin>>n;
int arr[n];
cout<<"Vvesti elementy massiva\n";
for (int i = 0; i < n; ++i) {
cin>>arr[i];
}
for (int i = 0; i < n; ++i) {
if (arr[i]%5==0){
count ++;
suma += arr[i];
}
}
cout<<"Kolichestvo elementov kratnyh 5 = "<<count<<endl;
cout<<"Summa elementov kratnyh 5 = "<<suma<<endl;
}
Объяснение:
Создаем переменную n которая будет определять количество элементов в массиве. Потом объявляем переменные count(подсчет элементов кратным 5) и suma(аналогично).
Вводим количество элементов массива и заполняем сам массив.
Далее идет цикл и в нем условие "Если элемент массива при делении на 5 дает остаток 0(то есть число кратное 5) то..."
В условии к count добавляем 1 элемент каждый раз, когда условие правдиво.
К суме добавляем сам элемент, в том же случае.
Ну и выводим эти переменные
Sub Strange()
Dim r As Range, a As Variant, b As Variant, e As Variant, Max As Variant
Set r = Selection
a = r
Max = -1E+100
For Each e In a
If e < 0 And e > Max Then
Max = e
End If
Next
Dim i As Integer, j As Integer
b = a
j = LBound(b, 2) - 1
For i = LBound(a, 2) To UBound(a, 2)
If a(1, i) = Max Then
j = j + 1
b(1, j) = i
End If
Next
Set r = Range(Cells(2, 1), Cells(2, j))
Rows(2).Clear
r = b
End Sub