Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Танзила44
26.07.2021 06:04 •
Информатика
Написать программу дан массив целых чисел состоящий из 20 элементов. вывести индексы тех элементов значения которых больше заданного числа а
Показать ответ
Ответ:
pidortema
14.07.2020 23:20
Var
b:array[1..20]of integer;
i,a:integer;
begin
for i:=1 to 20 do
begin
b[i]:=random(20);
write(b[i],'; ');
end;
writeln;
writeln('Введите число:');
readln(a);
write('Индексы: ');
for i:=1 to 20 do
if b[i]>a then write(i,'; ');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
KekalolQ
19.07.2020 15:25
2.переведите данные числа в десятичную систему счисления а)1100000110(2) б)1100010(2) в)1011010,001(2) г)1010100010,001(2) д)1537,22(8) г)2d9,8(16)...
12389p
05.09.2022 01:53
Дан массив содержащий 10 чисел, найди и выведи на экран третий четный элемент...
СССС69
22.03.2022 07:30
Нужно написать код на html и css дабы получилось что-то вроде закрепленого примера. за ранее, огромное !...
Xylinado
28.04.2022 08:58
Заполни таблицу Исторические источники о кангюях....
Камиль877784612008
16.12.2021 11:03
Допишите предложение:Программа - алгоритм,...
daudovam17
13.10.2022 00:02
Даны два целых числа m и n.Напишите программу , которая выводит все числа от m до n включительно в порядке возрастания ,если m больше n,или в порядке убывания,в противном...
layreddota2
11.03.2023 03:17
Complete the sentences with the correct words...
mhey3303
09.08.2021 17:15
4. (26) Установіть відповідність між речення ми з прямою мовою і схемами речень. Розділові знаки пропущено....
deniskamikhalcozvly4
28.07.2021 07:09
285Б. Определите тип речи. Назовите особен-ности этого типа речи.Сформулируйте основ-ную мысль текста.Текст на фото.ответ который есть в приложение не подходит!Не знаешь...
пацанизподворотни
24.04.2022 10:26
Даны точки А(1;2;3), В(-1;3;5), С(2;0;4), D(3;-1;2). Найти: - общее уравнение плоскости; - расстояние от точки D до плоскости АВС; - площадь треугольника АВС; - объём пирамиды...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
b:array[1..20]of integer;
i,a:integer;
begin
for i:=1 to 20 do
begin
b[i]:=random(20);
write(b[i],'; ');
end;
writeln;
writeln('Введите число:');
readln(a);
write('Индексы: ');
for i:=1 to 20 do
if b[i]>a then write(i,'; ');
end.