На экран вывести массив состоящий из n элементов целочисленного типа отсортировать его в порядке возрастания и результат вывести в файл . 

На экран вывести массив состоящий из n элементов целочисленного типа отсортировать его в порядке возрастания и результат вывести в файл . 
Гость
Ответ(ы) на вопрос:
Гость
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.
Гость
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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы