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

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

Показать ответ

Ответ:

ermakovaaaa

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

Ответ:

KopolbEnufaHtuy

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

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

Koul637

19.06.2021 16:09

Изображение размером 120х120 пикселей сохранили, задав глубину цвета 8 бит. какой объем видеопамяти компьютера потребуется для хранения этого файла? ...

псдрпл

27.04.2020 22:18

Напишите программу нахождения произведения 4 чисел? на паскале...

VovanGh165

27.04.2020 22:18

Один из первых отечественных персональных компьютеров бк-0010 имел оперативную память объёмом 16 кбайт.сколько страниц текста можно бы разместить в памяти этого компьютера,если...

KatiG

27.04.2020 22:18

Напишите программу нахождение площади треугольника по формуле герона, на паскале...

mishchenko07

27.04.2020 22:18

Запишите число 817 в двоичной системе и обратно ....

steel09090

27.04.2020 22:18

Петя и вася играют в очередную партию в стрелялку.для выполнения очередного им необходимо набрать одинаковое количество патронов. оружейник предлагает им обоймы, состоящие из...

CHOCOдракошка

11.01.2022 20:45

Раз – подняться, подтянуться, два – согнуться, разогнуться, три – в ладоши три хлопка, головою три кивка. на четыре – руки шире, пять – руками , и за парту сесть опять этот алгоритм...

superpuper90

11.01.2022 20:45

Как-то играя в магическую игру, петя молодцов встретил тролля. у этого тролля была отличительная черта - жить под мостом, лгать с воскресенья по вторник и н елгать в остальные...

vdv2001891

11.01.2022 20:45

Маша птичкина любит играть в игру веселый фермер. и вот как-то раз ее ферма нуждалась в покраске . маша решила начать с щита и покрасить его почему-ир не в красный а в оранжевый...

sofialesiuk

11.12.2022 16:12

Боря, паша, рома и саша провели однокруговой турнир по игре в шахматы(ничья-0,, выигрыш-, боря, паша, рома между собой сыграли вничью, но рома занял место в турнирной таблице...

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

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