Войти Регистрация Спроси ai-bota

Написать программу, используя динамическое выделение памяти. дан массив а из n целых чисел. вывести на печать только те числа, для которых выполняется условие аi ≤ i, где i – номер элемента массива

Ответ:

мам65

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 оценок)

Ответ:

lainzord

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 оценок)

Популярные вопросы: Информатика

anisimanis

08.10.2022 23:50

Что не так в программе на кумир: использовать Робот алг Найти проход в коридоре дано | Робот узком горизонтальном коридоре, правее робота есть выход надо | Робот в клетке с выходом...

zenfnfsj

16.11.2022 08:39

45//7 = 45%7= 23%10= 23//10= Это информатика...

Tosya03

17.11.2021 13:48

При использовании в тексте алгоритма циклов иногда возникает ситуация зацикливания. Это означает ... 1)исполнение цикла не начнется 2)исполнение цикла не закончится никогда + 3)исполнитель...

hadisvv

18.12.2020 09:34

Текстовый файл 24-1.txt состоит не более чем из 106 символов - заглавных латинских букв и цифр. Возрастающей подпоследовательностью будем называть последовательность символов, расположенных...

axmefibragimovp09v94

07.02.2020 18:17

6BC16 в десятичной системе счисления...

Knowww

07.12.2022 20:09

Минимальный простой делитель Дано целое число, не меньшее 2. Выведите его наименьший простой делитель. Входные данные Вводится целое положительное число N≤2∗109. Выходные данные...

даниил921

07.07.2022 20:09

5. Сопоставь типы с соответствующими названиями: [3] Строковые Целыечисла str() bool() Логические Действительныечисла...

qwerty854

08.08.2022 13:25

Найти сумму ряда на языке С++ , хотя бы подсказку какую-нибудь...

vk20001

21.10.2020 11:15

Изображение размером 12 Мбайт сжимают для экономии памяти. Известно, что разрешение уменьшили вдвое, а цветовую палитру с 2 (15-ой степени) = 32768 цветов сократили до 1024 цветов....

Вика2006a

08.11.2022 14:53

; КОНСПЕКТ ПО ТЕХНОЛОГИИ 10 ПАРАГРАФ 5 КЛАСС БОСОВА !...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку