Question

В одномерном массиве из 10 чисел посчитать количество всех элементов, кратных 7 и сумму остальных элементов

Answer 1

Const
n=10;
Var a: array[1..10] of  integer;     
 i: integer;       
s,k: real;
Begin
k:=0;
s:=0;
For i:=1 to n do     
begin       
write ('Числа = '); readln (a[i]);       
if a[i] mod 7 = 0  then s:=s+1 else k:=a[i]+k;     
end;   
writeln('Кол-во элементов кратных 7 = ',s);  
writeln('Сумма остальных= ',k);
End.

Answer 2

Для того чтобы посчитать количество всех элементов, кратных 7, и сумму остальных элементов в одномерном массиве из 10 чисел, нужно пройтись по каждому элементу массива и проверить условия.

Предположим, у нас есть массив arr из 10 чисел: arr = [14, 21, 35, 42, 56, 63, 70, 77, 84, 98]

Теперь мы можем написать код для подсчета количества элементов, кратных 7, и суммы остальных элементов:

arr = [14, 21, 35, 42, 56, 63, 70, 77, 84, 98]

count_multiple_of_seven = 0
sum_other_elements = 0

for num in arr:
    if num % 7 == 0:
        count_multiple_of_seven += 1
    else:
        sum_other_elements += num

print("Количество элементов, кратных 7:", count_multiple_of_seven)
print("Сумма остальных элементов:", sum_other_elements)

При выполнении этого кода мы получим количество элементов, кратных 7 (в данном случае 4) и сумму остальных элементов (в данном случае 350).