Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
amir3009
28.01.2022 10:57 •
Информатика
Дан массив целых чисел состоящий из 10 элементов вывести индексы тех элементов значение которых больше заданного числа а (а вводится с клавиатуры) язык программирования: паскаль
Показать ответ
Ответ:
pomoch21213
03.07.2020 18:42
Var a:array[1..10] of integer;
i,b:integer;
begin
for i:=1 to 10 do
read(a[i]);
read(b);
for i:=1 to 10 do
if a[i]>b then write(i,' ');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
lgaksenk
03.05.2020 16:17
Расставьте между цифрами знаки арифметических действий (+*,/)и, если надо, скобки так,чтобы ответ оказался равным 1 .1, 2, 3, 4, 5, 6 ,7, 8 1)1 2 3 4 5 6 2)1 2 3 4 5 6 7 3)1 2...
mariapogorelova
15.03.2020 20:32
При шифровании текстовых сообщений в ASCII-кодировке в вычислительной системе используется алгоритм шифрования, при котором значение каждого следующего байта циклически сдвигается...
bigzaur777
03.03.2022 02:51
Исследуй РОЕАйдана создала рисунок в графическом редакторе PaintВыделив рисунок, скопировала его в программу Inkscape,Она хотела увеличить и уменьшить этот рисунок в обоихредакторах.Проведи...
1sanita
05.04.2021 03:19
очень надо Определите соответствие типов данных 5 задание, но можете и с другими) >...
ZhenyaKan11
27.05.2020 20:39
Объясните подробно как сделать минимум ходов (5)....
валенок123
19.01.2020 16:21
Объем страховых сделок Фамилия Объем страховых сделок Комиссионное вознаграждение за III кв. июль август сентябрь Иванов 400 120 390 Федоров 250 200 270 Антонов 290 370 410 Орлов...
gaga2244
09.05.2021 10:32
Не могу установить Mac OS на свой пк, проблема в том, что при выборе диска пишет на диске установлена защита как снять защиту ...
Kozlov24ivan122
09.04.2022 03:13
Первое письмо состоит из 55 символов 32-символьного алфавита, а второе - из 50 символов 64-символьного алфавита. Сравните объём информации, содержащийся в двух письмах. В сообщении...
MRSAVVA
26.07.2020 19:58
6.Декодируйте двузначный шестнадцатеричный код (в ответе пишете только декодированные символы): 21CFF0EEE2E5F0FCF2E520E5F9E520F0E0E721( : 1)...
3eбpa
25.08.2021 22:23
с информатикой. 9 класс...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i,b:integer;
begin
for i:=1 to 10 do
read(a[i]);
read(b);
for i:=1 to 10 do
if a[i]>b then write(i,' ');
end.