Дан массив из n естественных чисел .найти количество элементов кратных 3
Дан массив из n естественных чисел .найти количество элементов кратных 3 и не кратных 5
Задать свой вопрос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.
-
Вопросы ответы
Статьи
Информатика
Статьи
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.
Математика.
Химия.
Русский язык.
Разные вопросы.