Написать программку, используя динамическое выделение памяти.Дан массив А из N целых
Написать программу, используя динамическое выделение памяти.
Дан массив А из N целых чисел. Вывести на печать только те числа, для которых производится условие Аi i, где i номер элемента массива
2 ответа
Монцев
Костя
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]lt;=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
Внимание! Если программка не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),0,30); a.Println;
for var i:=0 to a.Length-1 do
if a[i]lt;=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[сч] lt;= сч ТО
Вывод.ЧЦел("%d ", A[сч], 0, 0, 0)
КОН
КОН
КОН Задание.
Употребляет
Матем ИЗ "...\Отделы\Размен\",
Вывод ИЗ "...\Отделы\Обмен\",
Приём ИЗ "...\Отделы\Размен\";
ПЕР
A: ДОСТУП К РЯД ИЗ ЦЕЛ;
N, сч: ЦЕЛ;
УКАЗ
N := Приём.Число();
Сделать(A, N);
ОТ сч := 0 ДО N - 1 ВЫП
A[сч] := УЗК(ВШИРЦЕЛ(Матем.случ() * N))
КОН;
ОТ сч := 0 ДО N - 1 ВЫП
ЕСЛИ A[сч] lt;= сч ТО
Вывод.ЧЦел("%d ", A[сч], 0, 0, 0)
КОН
КОН
КОН Задание.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Игорь 14 лет назад был на 8 лет моложе, чем его
Математика.
Два тела массами m1 и m2 находящие на расстоянии R друг
Физика.
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
Облако тегов