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

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

Задать свой вопрос
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.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт