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

132

224

Посмотреть ответы 3

Ответы на вопрос:

Evelynimmortal

Информатика

4,5(81 оценок)

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.