Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
кошка372
29.01.2021 15:03 •
Информатика
Написать программу которая заполняет массив (размера 10) случайными числами в диапозоне от 0 до 100 и выводит на экран элементы краткие числу к
Показать ответ
Ответ:
VikaS11111
10.09.2020 08:28
Var
i,k:integer;
mas:=array [1..10] of integer;
begin
randomize;
for i:=1 to 10 do
mas[i]:=random(100);
readln(k);
for i:= 1 to 10 do
if mas[i] mod k = 0 then
writeln(mas[i]);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
vika5658
03.04.2023 18:13
Задание 1. «Составление и выполнение проектов с использованием циклов со счетчиком» ( ) 1. Откройте среду Scratch 2 2. Составьте проект, чтобы получить изображение, приведенное...
Grayr2005
15.09.2020 04:30
Заполнить таблицу как на фото по блок схеме....
Гульдана111
19.09.2021 16:51
Требуется разложить целое число N на множители и вывести результат в порядке возрастания множителей с указанием степени. Питон Пример: 2 - 2 1008 - 2^4*3^2*7...
пингвин39
12.06.2022 23:12
ОЧЕНЬ НАДЕЮСЬ НА ВАШУ Информационное сообщение объемом 27 байт состоит из 72 символов. Определите мощность алфавита, с которого записано сообщение. ...
AnnaKnuazev
17.11.2022 08:46
По блох схеме заполнить таблицу(пример как на фото)...
Saetre2003
22.10.2022 02:01
Определите результат логических функций И (3 5, 15/2-4 3) или (99-27*3=5 : 78/2-39 =-1...
elena444454
16.10.2021 20:57
Вы можете использовать алфавит из двух символов:А и Б. Сколько разных трёхсимвольных слов существуетв этом алфавите? Для ответа на вопрос постройте схему:...
apexXx
05.05.2023 08:23
Дана непустая строка из строчных букв. напечатать в алфавитном порядке все гласные буквы, не входящие в строку...
kira1180
21.01.2022 19:59
Заполните пропуски. 3кбайт ? байт ? бит...
korolovk
31.10.2022 22:42
Как правильно написать:(Не)разбившийся самолет,(не)прочитанная к уроку....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i,k:integer;
mas:=array [1..10] of integer;
begin
randomize;
for i:=1 to 10 do
mas[i]:=random(100);
readln(k);
for i:= 1 to 10 do
if mas[i] mod k = 0 then
writeln(mas[i]);
end.