Даны два целых числа a и b (a < b). найти все целые числа, располо-
женные между данными числами (не включая сами эти числа), в порядке
их убывания, а также количество n этих
158
321
Ответы на вопрос:
ответ:
program aandb;
var
a, b, n, i: integer;
begin
write ('введите a и b (a < b)');
readln (a, b);
writeln;
n : = 0;
if a < b then begin
for i : = b - 1 downto a + 1 do begin
write (i, ' ');
inc (n);
end;
writeln;
writeln ('n = ', n);
end else
writeln ('условие не выполнено.');
readln;
end.
Const n = 10; var a, b, c: array[1..n] of integer; i, j, kb, kc, t: integer; begin randomize; writeln('исходный массив'); kb : = 0; kc : = 0; for i : = 1 to n do begin a[i] : = random(101) - 50; write(a[i]: 4); if a[i] < 0 then begin inc(kb); b[kb] : = a[i] end else begin inc(kc); c[kc] : = a[i] end end; writeln; { теперь массив b содержит элементы, с - остальные } for i : = 1 to kb - 1 do for j : = 1 to kb - 1 do if b[j] > b[j + 1] then begin t : = b[j]; b[j] : = b[j + 1]; b[j + 1] : = t end; { сливаем массивы b и c в массив а} i : = 0; for j : = 1 to kb do begin i : = i + 1; a[i] : = b[j] end; for j : = 1 to kc do begin i : = i + 1; a[i] : = c[j] end; writeln('результирующий массив'); for i : = 1 to n do write(a[i]: 4); writeln end. тестовое решение: исходный массив -32 -8 43 -24 8 -45 -13 40 17 46 результирующий массив -45 -32 -24 -13 -8 43 8 40 17 46
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
missiszador16.04.2023 05:43
-
Mew320002.03.2023 04:09
-
iratupikp00q9c27.05.2022 18:43
-
Vixsik02.05.2023 05:10
-
udovkinayulia109.09.2020 02:18
-
Saint22802.09.2020 16:46
-
borisevichdash24.05.2021 01:48
-
NastiaForever1821.11.2020 15:25
-
bigarnastia27.01.2020 07:01
-
polycononova2008.09.2022 21:39
![Caktus Image](/tpl/img/cactus.png)
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.