Помогите с прогой на паскалеВвести последовательность случайным образом N=12. Упорядочить
Помогите с прогой на паскале
Ввести последовательность случайным образом N=12. Упорядочить последовательность по убыванию и вывести на экран два наибольших четных и меньших нечетных числа.
1 ответ
Евген Веремейкин
Const n = 12;
var temp:Integer;
var ar:array[1..n] of Integer;
begin
for var i:= 1 to n do
Read(ar[i]);
for var a:= 1 to n do
for var b:= 1 to n do
if (blt;n) and (ar[b]lt;ar[b+1]) then
begin
temp:= ar[b];
ar[b]:= ar[b+1];
ar[b+1]:= temp;
end;
Writeln('Два наибольших '+ar[1]+ ' и '+ar[2]+'.');
Writeln('Два меньших '+ar[n-1]+' и '+ar[n]+'.');
end.
Жмякаем 'Наихороший'
var temp:Integer;
var ar:array[1..n] of Integer;
begin
for var i:= 1 to n do
Read(ar[i]);
for var a:= 1 to n do
for var b:= 1 to n do
if (blt;n) and (ar[b]lt;ar[b+1]) then
begin
temp:= ar[b];
ar[b]:= ar[b+1];
ar[b+1]:= temp;
end;
Writeln('Два наибольших '+ar[1]+ ' и '+ar[2]+'.');
Writeln('Два меньших '+ar[n-1]+' и '+ar[n]+'.');
end.
Жмякаем 'Наихороший'
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
Облако тегов