Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Anna18181818181818
06.03.2023 05:39 •
Информатика
Написать программу, используя динамическое выделение памяти. дан массив а из n целых чисел. вывести на печать только те числа, для которых выполняется условие аi ≤ i, где i – номер элемента массива
Показать ответ
Ответ:
nastya2735
08.10.2020 12:47
PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),0,30); a.Println;
for var i:=0 to a.Length-1 do
if a[i]<=i+1 then Print(a[i])
end.
Пример
n= 20
18 19 0 24 24 19 15 1 25 11 15 19 15 12 2 2 7 19 20 12
0 1 12 2 2 7 12
0,0
(0 оценок)
Ответ:
kirill994
08.10.2020 12:47
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ
Матем ИЗ "...\Отделы\Обмен\",
Вывод ИЗ "...\Отделы\Обмен\",
Приём ИЗ "...\Отделы\Обмен\";
ПЕР
A: ДОСТУП К РЯД ИЗ ЦЕЛ;
N, сч: ЦЕЛ;
УКАЗ
N := Приём.Число();
СОЗДАТЬ(A, N);
ОТ сч := 0 ДО N - 1 ВЫП
A[сч] := УЗК(ВШИРЦЕЛ(Матем.случ() * N))
КОН;
ОТ сч := 0 ДО N - 1 ВЫП
ЕСЛИ A[сч] <= сч ТО
Вывод.ЧЦел("%d ", A[сч], 0, 0, 0)
КОН
КОН
КОН Задание.
0,0
(0 оценок)
Популярные вопросы: Информатика
avomilag95
17.09.2021 14:33
Ребята, нужна ваша !вот что это за обозначения? названия...
папа298
09.03.2023 16:07
Иван решил накопить на отпуск откладывая каждый день на рубль больше, чем вчера. Начало отсчета – 1 рубль. Разработайте программу расчета накоплений Ивана. Предоставьте Ивану возможность...
Помрлтм245
19.05.2020 08:30
1. Даны два целых числа A и В. Выведите все числа от A до B включительно, в порядке возрастания, если A B, или в порядке убывания в противном случае. 2. Введите число n. Вычислите...
egorilin1626hdhudn
23.03.2020 10:24
1. Создайте таблицу в электронном процессоре. Цена в тенге Наименование товара Конфеты «Рахат» Печенье «Юбилейное» Конфеты «Казахстан» Печенье «Астана» Единицы измерения Коробка...
Лалиса1
19.12.2021 19:37
Здравствуйте. Необходимо выполнить задание на построение графика функции в Excel. Функция : x^2/2-y^2/12=1....
БразилицУченик
15.12.2022 00:20
Напишите программу для решения следующей задачи. Камера наблюдения регистрирует в автоматическом режиме скорость проезжающих мимо неё автомобилей, округляя значения скорости до целых...
Ch3l0vek
20.02.2022 16:15
Выберите выражение,значения которых одинаковые 101101: 11 ². ² 1001+102 ². ²1001-111 ². ²101 • 11 ². ²остальное прикрепил...
GeorgYanovski777
02.12.2020 00:39
, online mekten . Для построения диаграммы в таблице необходимо выделить : Верных ответов : 1 текстовые данных числовые данные заголовок таблицы всю страницу...
uglyfrosha
16.06.2021 04:43
Скласти алгоритм 1.знайти суму цілих додатніх парних чисел меншинх 50 2.знайти середне арифметичне всіх цілих додатніх чисел меньших N...
ЗоНя3
11.02.2020 06:35
Определи количество действий Push/Pull, использованных для создания этой 3D-модели. 1 2 3 Инструмент Push/Pull не применяли к 3D-модели...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),0,30); a.Println;
for var i:=0 to a.Length-1 do
if a[i]<=i+1 then Print(a[i])
end.
Пример
n= 20
18 19 0 24 24 19 15 1 25 11 15 19 15 12 2 2 7 19 20 12
0 1 12 2 2 7 12
ИСПОЛЬЗУЕТ
Матем ИЗ "...\Отделы\Обмен\",
Вывод ИЗ "...\Отделы\Обмен\",
Приём ИЗ "...\Отделы\Обмен\";
ПЕР
A: ДОСТУП К РЯД ИЗ ЦЕЛ;
N, сч: ЦЕЛ;
УКАЗ
N := Приём.Число();
СОЗДАТЬ(A, N);
ОТ сч := 0 ДО N - 1 ВЫП
A[сч] := УЗК(ВШИРЦЕЛ(Матем.случ() * N))
КОН;
ОТ сч := 0 ДО N - 1 ВЫП
ЕСЛИ A[сч] <= сч ТО
Вывод.ЧЦел("%d ", A[сч], 0, 0, 0)
КОН
КОН
КОН Задание.