Вопрос по информатике:
На экран вывести массив состоящий из n элементов целочисленного типа отсортировать его в порядке возрастания и результат вывести в файл .
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 07.08.2015 07:37
- Информатика
- remove_red_eye 5604
- thumb_up 50
Ответы и объяснения 2
Program Program1;
var i, j, n: integer;
Arr: array [1..255] of integer;
FileArr: text;
procedure swap(var x, y: integer);
var t: integer;
begin
t := x; x := y; y := t
end;
begin
assign(FileArr, 'Array.txt');
rewrite(FileArr);
randomize;
write('Введите значение N: ');
readln(n);
for i := 1 to n do
begin
Arr[i] := random(100);
end;
for j := 1 to n - 1 do
for i := 1 to n - j do
if Arr[i] > Arr[i + 1] then
swap(Arr[i], Arr[i + 1]);
for i := 1 to n do
begin
writeln(Arr[i]);
end;
for i := 1 to n do
begin
writeln(FileArr, Arr[i]);
end;
close(FileArr);
end.
- 08.08.2015 23:29
- thumb_up 4
Program Program1;
var i, j, n: integer;
Arr: array [1..255] of integer;
FileArr: text;
procedure swap(var x, y: integer);
var t: integer;
begin
t := x; x := y; y := t
end;
begin
assign(FileArr, 'Array.txt');
rewrite(FileArr);
randomize;
write('Введите значение N: ');
readln(n);
for i := 1 to n do
begin
Arr[i] := random(100);
end;
for j := 1 to n - 1 do
for i := 1 to n - j do
if Arr[i] > Arr[i + 1] then
swap(Arr[i], Arr[i + 1]);
for i := 1 to n do
begin
writeln(Arr[i]);
end;
for i := 1 to n do
begin
writeln(FileArr, Arr[i]);
end;
close(FileArr);
end.
- 09.08.2015 20:01
- thumb_up 26
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.