Вопрос по информатике:
Дан одномерный массив С (10) заполненный вручную с клавиатуры,отсортировать по возрастанию и убыванию.
- 11.01.2018 11:05
- Информатика
- remove_red_eye 17512
- thumb_up 34
Ответы и объяснения 1
Var
c:array[1..100] of integer;
s,j,n,i:integer;
begin
readln(n);
for i:=1 to n do
read(c[i]);
//Сортировка по возрастанию
for j:=1 to n-1 do
for i:=1 to n-j do
if c[i]>c[i+1] then
begin
s:=c[i];
c[i]:=c[i+1];
c[i+1]:=s;
end;
//Вывод
for i:=1 to n do
write(c[i],' ');
writeln;
//Сортировка по убыванию
for j:=1 to n-1 do
for i:=1 to n-j do
if c[i]
s:=c[i];
c[i]:=c[i+1];
c[i+1]:=s;
end;
//Вывод
for i:=1 to n do
write(c[i],' ');
end.
- 12.01.2018 08:57
- thumb_up 26
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.