Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
yarroslawfd
22.04.2023 22:26 •
Информатика
Дан массив целых чисел из n элементов сформированный случайным образом. определить, сколько в нем чисел кратных 7 написать программу в паскаль
Показать ответ
Ответ:
gdhdf
08.10.2020 07:02
Var
a, k, n, i, sum: integer;
begin
read(n, k);
for i := 1 to n do
begin
read(a);
if a mod k = 0 then sum := sum + a;
end;
writeln(sum) ;
end.
где k - заданное число которому должны быть кратны элементы массива
n - кол-во элементов массива
0,0
(0 оценок)
Популярные вопросы: Информатика
tanyagrandf
21.03.2020 07:28
Запись формулы в электронной таблице не может включать в себя а) знаки арифметических орераций б) имена ячеек в)числовые выражения г) текст...
Dasha20061104
27.01.2020 03:48
Приветствует пользователя. Соблюдая условие ожидание 3 секунд....
AnnKJ
24.11.2022 08:45
Дано фрагмент електронної таблиці. яке значення отримає клітинка а5? а в 1 = в1+3 2,5 2 =( а1+2)*2 8 3 = в2: 2 5 4 =а2-в3 а2 5 = а4*в1-в4 а б в г 25 4 10 3,5...
javajaaripo
19.04.2022 12:58
пожайлуста по информатике.Нужно дополнить программу...
Bogdasha06102015
17.02.2020 01:05
Определите значение переменной «a» после выполнения фрагмента программы: a := 10; b := 3; if a b then b := b + 12 else a := a - 7; if a b then a := a + 12 else a := a - 7;...
dashok32
12.07.2020 01:57
(можно скопировать из Паскаля) *...
MilenaSmail12
16.05.2023 08:06
Тест по теме «Программирование на языке Pascal» 1) С какого слова обычно начинается раздел операторов? a) Uses; b) Begin; c) Var; d) Write. 2) Какая из переменных может не является...
ира1031
21.01.2021 08:58
Определите результат выполнения команды для целочисленных x=10: if x 0 then if x 8 then y:= sqrt (x) else y:= 2*x+1 else y:= 0; writeln(y);...
adimochka
12.08.2020 20:29
ответьте на во как включить компьютер...
ПсихическиБольной
18.03.2023 20:56
Program pr_1; var x,y,sum, umn: integer; begin write ( x= ); readln (x); write ( y= ); readln (y); sum:=x+y; umn:=x*y; writeln ( sum= ,sum); writeln ( umn= ,umn); readln; end....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a, k, n, i, sum: integer;
begin
read(n, k);
for i := 1 to n do
begin
read(a);
if a mod k = 0 then sum := sum + a;
end;
writeln(sum) ;
end.
где k - заданное число которому должны быть кратны элементы массива
n - кол-во элементов массива