Вопрос по информатике:
С клавиатуры вводится 20 чисел, заполнить их в массив, отсортировать и вывести в файл.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 08.01.2017 08:51
- Информатика
- remove_red_eye 9394
- thumb_up 14
Ответы и объяснения 1
Const
len = 20;
var
arr : array [1..len] of integer;
i, i2, min, temp : integer;
f : text;
begin
for i := 1 to len do {считывание массива с клавиатуры}
begin
write('arr[', i, '] = ');
readln(arr[i]);
end;
for i := 1 to len do {сортировка}
begin
min := i;
for i2 := i to len do {находим позицию наименьшего элемента}
if arr[i2] < arr[min] then
min := i2;
temp := arr[min]; {запоминаем наименьший элемент}
for i2 := min downto i + 1 do {сдвигаем массив вправо}
arr[i2] := arr[i2 - 1];
arr[i] := temp; {ставим наименьшее значение в нужное место}
end;
AssignFile(f, 'output.txt'); {вывод массива в файл output.txt}
Rewrite(f);
for i := 1 to len do
write(f, arr[i], ' ');
CloseFile(f);
end.
- 09.01.2017 21:20
- thumb_up 11
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.