Ответы на вопрос:
a. 3
b. Терісінің түсі сарылау.
c. Орталық азияның шығыс бөлігінде орналасқан.
d. Беті жалпақ, көзі қоңыр.
uses crt;
const max=100;
var a:array[1..max] of integer;
n,i,j:byte;
x:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива n=');
readln(n);
until n in [1..max];
writeln('Исходный массив:');
for i:=1 to n do
begin
a[i]:=random(20)+1;
write(a[i]:3);
end;
writeln;
writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
if odd(a[i])and(odd(a[j]))and(a[i]>a[j]) then
begin
x:=a[i];
a[i]:=a[j];
a[j]:=x;
end;
writeln('Нечетные элементы отсортированы по возрастанию:');
for i:=1 to n do
if odd(a[i]) then
begin
textcolor(12);
write(a[i]:3);
end
else
begin
textcolor(15);
write(a[i]:3);
end;
textcolor(15);
readln
end.
const max=100;
var a:array[1..max] of integer;
n,i,j:byte;
x:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива n=');
readln(n);
until n in [1..max];
writeln('Исходный массив:');
for i:=1 to n do
begin
a[i]:=random(20)+1;
write(a[i]:3);
end;
writeln;
writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
if odd(a[i])and(odd(a[j]))and(a[i]>a[j]) then
begin
x:=a[i];
a[i]:=a[j];
a[j]:=x;
end;
writeln('Нечетные элементы отсортированы по возрастанию:');
for i:=1 to n do
if odd(a[i]) then
begin
textcolor(12);
write(a[i]:3);
end
else
begin
textcolor(15);
write(a[i]:3);
end;
textcolor(15);
readln
end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Другие предметы
-
решить четвертый вариант...
ziniakovarenatzinca18.11.2020 11:27 -
Значение действий купцов Морозовых...
kotdv7518.09.2021 21:57 -
Сегодня работает. Побыстрее . C чем работает мальчик на фото?...
pvpgame234525.10.2020 12:48 -
если можно в виде фото...
Jokenroal27.03.2020 18:48 -
1. какие требования предъявляются к военнослужащим? 2. на какой законодательной...
Kovalenko2001N09.02.2021 11:43 -
напишіть повідомлення на таку тему《На скільки відсотків ти себе вважаєш зрілим》...
шкуренок4608.02.2022 14:57 -
1)Які установи підтверджують наявність Covid-19 2) Прожитковий мінімум 2019-2020рр...
HelpmeAnna119.01.2022 05:40 -
подсчитайте линейный диаметр солнца, если из наблюдений определили его горизонтальный...
вєлтикнадрей26.05.2023 12:54 -
В какие интервалы обращаются тритоны в гармоническом мажоре?...
sport2209.07.2022 16:30 -
Заполните таблицу западно сибирской низменности 1 тектонические структуры 2 формы...
lenyskadi08.07.2020 03:23
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.