Дан массив из n естественных чисел .найти количество элементов кратных 3

Дан массив из n естественных чисел .найти количество элементов кратных 3 и не кратных 5

Задать свой вопрос
1 ответ

program zz1;
var mas:array[1..20] of integer;
i,k,n:integer;
begin
read(n); //вводим количество частей в массиве
for i:=1 to n do
mas[i]:=random(21)+1; //записываем числа в массив рандомно от 1 до 20
for i:=1 to n do
write(mas[i], ); //выводим числа из массива на экран
for i:=1 to n do
if mas[i] mod 3 = 0 then if mas[i] mod 5lt;gt;0 then k:=k+1; //проверяем, если число из массива делится на 3, но не делится на 5, то считаем его
writeln; //перебегаем на новейшую строчку для ответа
write(количество элементов кратных 3 и не кратных 5=,k); //выводим ответ
end.

, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт