Home
О нас
Products
Services
Регистрация
Войти
Поиск
mamonda40
@mamonda40
July 2022
1
2
Report
Дан одномерный целочисленный массив из n чисел. Найти количество четных элементов кратных к трем и семи.(блок схема не нужна) ДАМ 15 баллов
Please enter comments
Please enter your name.
Please enter the correct email address.
Agree to
terms of service
You must agree before submitting.
Send
Answers & Comments
karicha2000
Var n,k,i:integer;
a:array[1..1000] of integer;
begin
write('Введите кол-во элементов: '); readln(n);
writeln('Введите элементы');
for i:=1 to n do
read(a[i]);
k:=0;
for i:=1 to n do
if not odd(a[i]) then
if (a[i] mod 7 = 0) or (a[i] mod 3 = 0) then inc(k);
writeln('Кол-во четных элементов кратных 3 или 7 : ',k);
end.
1 votes
Thanks 0
mamonda40
http://znanija.com/task/20561049
×
Report "Дан одномерный целочисленный массив из n чисел. Найти количество четных элементо..."
Your name
Email
Reason
-Select Reason-
Pornographic
Defamatory
Illegal/Unlawful
Spam
Other Terms Of Service Violation
File a copyright complaint
Description
Helpful Links
О нас
Политика конфиденциальности
Правила и условия
Copyright
Контакты
Helpful Social
Get monthly updates
Submit
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
a:array[1..1000] of integer;
begin
write('Введите кол-во элементов: '); readln(n);
writeln('Введите элементы');
for i:=1 to n do
read(a[i]);
k:=0;
for i:=1 to n do
if not odd(a[i]) then
if (a[i] mod 7 = 0) or (a[i] mod 3 = 0) then inc(k);
writeln('Кол-во четных элементов кратных 3 или 7 : ',k);
end.