Написать программку, используя динамическое выделение памяти.Дан массив А из 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
Статьи
Информатика
Статьи
Последние вопросы
задание экономиоти
Рассмотри ситуацию: человек живёт на Крайнем Се-вере. С помощью каких
Экономика.
Человек живет на Крайнем Севере. С помощью каких благ удовлетворяются потребности
Экономика.
там лежат три яйца.у дома рос клен.Это гнездо сойки.на клёне гнездо
Русский язык.
Тыныштық күйіндегі карусель 35 с-та 3,0 рад/с бұрыштық жылдамдықпен үдей қозғалады.
Разные вопросы.
Сочинение на тему "Русский язык не сможет умереть!"
Математика.
Приветствую!
Меня зовут Станислав, я представляю компанию under.site.
Хотел бы предложить интересное решение
Разные вопросы.
Масса трёх одинаковых пакетов чая 180г чему равна масса
Математика.
Газообразный аммиак объёмом 2.24 л (н.у.) был полностью поглощён 14.68 мл
Химия.
Упражнение 2 Выпишите глаголы и вставьте пропущенные буквы
Русский язык.
Радиус окружности, описанной около равностороннего треугольника, равен 6. Найдите сторону треугольника
Геометрия.
Облако тегов