Вопрос по информатике:
Дан одномерный целочисленный массив (количество элементов массива вводится с клавиатуры). Необходимо отсортировать элементы массива по возрастанию и вывести на экран. (На языке Pascal)
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 19.04.2016 08:34
- Информатика
- remove_red_eye 11460
- thumb_up 21
Ответы и объяснения 1
var
a: array of longint;
size, i, j: longint;
begin
randomize;
writeln('Колво элементов: ');
readln(size);
setLength(a, size);
write('Исходный случайный массив: ');
for i:=0 to size-1 do
begin
a[i]:=random(201)-100;
write(a[i], ' ');
end;
writeln;
for i:=0 to size-2 do
for j:=0 to size-i-2 do
if a[j]>a[j+1] then
begin
a[j]:=a[j] xor a[j+1];
a[j+1]:=a[j] xor a[j+1];
a[j]:=a[j] xor a[j+1];
end;
writeln('Отсортированный массив: ');
for i:=0 to size-1 do write(a[i], ' ');
writeln;
end.
- 20.04.2016 07:43
- thumb_up 3
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.