Рассмотрите опорный материал. Какими буквами обозначается на письме звук [ш']? 2. Дополните вывод.
187
498
Ответы на вопрос:
var
a : array [1..1000] of longint;
b : array [1..3] of longint;
i,n,k : longint;
procedure Swap(x,y,z:longint);
var
i,j,t : longint;
begin
i:=1;
j:=n;
while (i<=n) and (j>=1) and (i<j) and (i<=z) do
begin
while (i<=n) and (a[i]<>x) do inc(i);
while (j>=1) and (a[j]<>y) do dec(j);
if (i<j) and (i<=z)
then begin
t:=a[i]; a[i]:=a[j]; a[j]:=t;
inc(i); dec(j);
inc(k);
end;
end;
end;
begin
readln(n);
for i:=1 to 3 do b[i]:=0;
for i:=1 to n do
begin
read(a[i]);
inc(b[a[i]]);
end;
Swap(3,1,b[1]);
Swap(2,1,b[1]);
Swap(3,2,b[1]+b[2]);
writeln(k);
end.
a : array [1..1000] of longint;
b : array [1..3] of longint;
i,n,k : longint;
procedure Swap(x,y,z:longint);
var
i,j,t : longint;
begin
i:=1;
j:=n;
while (i<=n) and (j>=1) and (i<j) and (i<=z) do
begin
while (i<=n) and (a[i]<>x) do inc(i);
while (j>=1) and (a[j]<>y) do dec(j);
if (i<j) and (i<=z)
then begin
t:=a[i]; a[i]:=a[j]; a[j]:=t;
inc(i); dec(j);
inc(k);
end;
end;
end;
begin
readln(n);
for i:=1 to 3 do b[i]:=0;
for i:=1 to n do
begin
read(a[i]);
inc(b[a[i]]);
end;
Swap(3,1,b[1]);
Swap(2,1,b[1]);
Swap(3,2,b[1]+b[2]);
writeln(k);
end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Другие предметы
-
Subscribe please. Вот после слова subscribe нужна запятая ?...
Lophin08.07.2020 18:08 -
что за архитектура? ...
екатерина62518.03.2023 22:51 -
Розповідь про моє день народження...
максим167607.03.2020 09:20 -
Посоветуйте РУССКИИЙ перинг желательно гет русский перинг - тоесть...
Даша200211111110.10.2022 09:35 -
В одной коробке было 15 кг яблок, а в другой 45 кг, их привезли...
Аружан20034501.01.2023 11:33 -
или дайте ссылку где можно прочитать повесть Касымалы Баялинова...
Matimatichka13.02.2022 18:57 -
Черчение 20 упражнение На чертеже предмета передается штриховой...
Zipchik13.07.2022 15:42 -
Вадим плив на кораблі, коли його годинник випав за борт. не дивлячись...
жасулан1616.07.2021 11:40 -
Добрый вечер решить по технической механике, надо прошу....
Aksiomsa86858930.12.2022 12:07 -
Вчём их авторы видят значение: грамматика не предписывает законов...
gulnazka0623.09.2020 17:08
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.