1.
10-11 класс
|
Дан
одномерный массив а(n), в котором находится единственный элемент ,значение
которого принадлежит интервалу от 2 до 5. Найти где он находится , и
упорядочить по убыванию элементы, расположенные перед ним. Выдать на экран
номер элемента и упорядоченный массив.
const n=5;
var a:array[1..n] of integer; i,l:integer; t:boolean;
begin
for i:=1 to n do read(a[i]);
for i:=1 to n do if (a[i]>=2) and (a[i]<=5) then begin l:=i; break end;
t:=true;
while t do begin
t:=false;
for i:=1 to l-2 do if a[i]<a[i+1] then begin t:=true; a[i]:=a[i]+a[i+1]; a[i+1]:=a[i]-a[i+1]; a[i]:=a[i]-a[i+1] end
end;
writeln(l);
for i:=1 to n do write(a[i],' ')
end.
Другие вопросы из категории
устройств,устройств отображения информации (вывода) и сравните их с аналогичными характеристиками устройств первых ЭВМ.
каждую 16ю цифру представить соответствующими четырьмя двоичными цифрами
2АЕ9 и 22В1
памяти компьютера?
изображении используется палитра из 216 цветов. Саму палитру хранить не нужно.