Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Vihenka7
26.06.2022 23:23 •
Информатика
Дан целочисленный массив на 10 элементов.найти количество и сумму элементов кратных k
Показать ответ
Ответ:
АринаКузьмичева
23.09.2020 14:47
Var a:array[1..10] of integer;
i,k,s,r:integer;
begin
for i:=1 to 10 do readln(A[i]);
writeln('Введите число k');
readln(k);
s:=0;
r:=0;
for i:=1 to 10 do
if (A[i]modk=0) then begin
r:=r+1;
s:=A[i]+s;
end;
writeln(s,r);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
ddasha681
28.11.2022 20:30
Составить программу для вычисления y=1/x на языке Паскаль...
Pol111111111663
26.02.2021 23:49
Al Працюємо самостійноВизнач, які з наведених речень є висловлюваннями, та встанови їх істинн1) Слоненя схоже на кенгуру. И2) їй сподобався крокодил.3) Вона любить...
иринка2807
17.02.2023 14:42
(скреч)складіть проєкт у якому викованець малює рівносторонні трикутники,розміщені один в одному, якщо довжина сторони першого з них дорівнює а кроків, а довжина сторін...
Oхxxymiron
19.04.2020 06:54
Вычислите значение выражения: 1258 + 1012 + A16. ответ запишите в десятичной с стеме счисления....
nadialihas2005
28.08.2022 15:53
Дан массив из 50 чисел. заполните его случайными числами. вывести на экран сначала все положительные его элементы, а затем все отрицательные....
zulfiya2006
28.08.2022 15:53
Используя оператор case , напишите программу, которая переводит десятичные числа 1, 5, 10, 50, 100, 500, 1000, считываемые с клавиатуры, в римские....
Ярослав12345678
06.05.2022 21:41
Какие физические качества развивают данные упражнения мне нужно ...
jojolili
06.05.2022 21:41
Сызбаның тақырыбын анықта. МұнайсосіпшілігіэлектрқуатыөндірісіКолікМұнайтасымалдауМүнийөндейтін зауытсұйытылған газмұнай құбырыясанар-жағармайтұрғын үйдіHылытутемір...
ekaterinamorozo2
06.05.2022 21:41
На випаровування ефіру витрачено 1,5 МДж енергії,Яку кількість ефіру перетворили в пару?Питома теплота паруутворення ефіру 0,4Мдж/кг...
милана59
22.01.2021 11:17
Просклонять слово легенда по падежам на казахском языке...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i,k,s,r:integer;
begin
for i:=1 to 10 do readln(A[i]);
writeln('Введите число k');
readln(k);
s:=0;
r:=0;
for i:=1 to 10 do
if (A[i]modk=0) then begin
r:=r+1;
s:=A[i]+s;
end;
writeln(s,r);
end.