Вывести элементы массива в обратном порядке через рекурсию (программа Паскаль)
195
212
Ответы на вопрос:
procedure gen(i: integer; const k: integer; var x: arr);
begin
if i <= k
then begin
x[i] := random(100);
write(x[i]:3);
gen(i + 1, k, x)
end
else writeln
end;
procedure rprn(k: integer; const x: arr);
begin
if k > 0
then begin
write(x[k]:3);
rprn(k - 1, x)
end
else writeln
end;
var
a: arr;
n: integer;
begin
writeln('Количество элементов');
readln(n);
randomize;
gen(1, n, a);
rprn(n, a)
end.
begin
if i <= k
then begin
x[i] := random(100);
write(x[i]:3);
gen(i + 1, k, x)
end
else writeln
end;
procedure rprn(k: integer; const x: arr);
begin
if k > 0
then begin
write(x[k]:3);
rprn(k - 1, x)
end
else writeln
end;
var
a: arr;
n: integer;
begin
writeln('Количество элементов');
readln(n);
randomize;
gen(1, n, a);
rprn(n, a)
end.
1)із чотирьох рівних кубів,ребро яких дорівнює 1 см,склали прямокутний паралелепіпед.чому дорівнює площа повної поверхні цього паралелепіпеда
2)сторони основи прямокутного паралелепіпеда дорівнюють 2 см і 2√3 см,а один із кутів основи дорівнює 30 градусів.площа діагонального перерізу паралелепіпеда,який проходить через меншу діагональ основи,дорівнює 8 см². знайдіть площу повної поверхні паралелепіпеда ппаапрр поже
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Другие предметы
-
Настюша1лавруша04.11.2021 06:32
-
amazonka10121.12.2020 18:02
-
malina2002331.05.2020 08:44
-
botuchenyy01.01.2023 21:53
-
Масим00702.07.2020 12:54
-
Vankoed01.05.2023 10:23
-
endermeska20.07.2020 03:57
-
Gumashova22.02.2021 02:25
-
trototil06.11.2021 02:41
-
ангел76906.02.2021 12:56
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.