Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
romchik228666
25.09.2020 13:36 •
Информатика
Программа паскаль. найдите количество элементов кратных 5 в массиве из n чисел. n < = 5.
Показать ответ
Ответ:
JollyWolf
19.06.2020 02:59
Const nmax = 5;
var a:array [1..nmax] of integer;
i,k:integer;
begin
k:=0;
randomize;
for i:=1 to nmax do
begin
a[i]:=random(11)+10;
write (a[i],' ');
if a[i] mod 5 = 0 then inc(k);
end;
writeln;
writeln ('Kol-vo: ',k);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
hermoguchiy
04.01.2023 16:54
Что делать проанализируйте а затем запишите и выберете верные ответы...
v1k2
07.11.2021 10:32
№ 1 Текстовый редактор - програма предназначена для: 1 создания,редактирования, и форматирования текстовой информации. 2 работы с изображениями в процессе создания игровых программ....
Отличница2013
28.02.2021 09:38
Запиши развернутую запись числа 0,346 для дробной части числа большое, отмечу как лучший ответ и нажму...
катя4762
08.11.2020 23:41
решить проблему информатика ...
murzyeva1970
19.05.2023 11:24
Файл размером 64 кбайт передаётся через некоторое соединение со скоростью 512 бит в секунду. определите, с какой скоростью должно работать соединение, чтобы за то же время передать...
Ardashelovna
25.12.2020 19:34
Дан файл f, компоненты которого являются действительными числами. найти сумму наибольшего и наименьшего из значений компонент. p.s. решить в си шарпе....
петлю
12.04.2020 15:35
Решите по информатике! 1)определите значение переменных после выполнения программы: * int main() {int x,y; double z; x=15; y=4; x=x/y; z=double(x)/y; cout } 2) представлена программа...
2shIk
22.09.2020 13:38
Логическая функция f задаётся выражением: (x /\ z) \/ (x /\y/\¬z). на рисунке фрагмент таблицы истинности функции f, содержащий все наборы аргументов, при которых функция f истинна....
DamirJonson
07.12.2021 17:38
Правильно расположи типу данных в программе Python...
dimon111222
26.04.2020 02:34
Каким выделенным словам соответствуют данные толкование значений? 1.Программа, план действий-проект.2.Награда победителю в соревнованиях - ...3.Логотип, торговая марка - ...4.Категории...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a:array [1..nmax] of integer;
i,k:integer;
begin
k:=0;
randomize;
for i:=1 to nmax do
begin
a[i]:=random(11)+10;
write (a[i],' ');
if a[i] mod 5 = 0 then inc(k);
end;
writeln;
writeln ('Kol-vo: ',k);
end.