Регистрация
камаз9
31.05.2022 01:03
Информатика
Есть ответ 👍

Нужен ответ по предмету Информатика

216
299
Посмотреть ответы 1

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

Анастасия54546
Анастасия54546
4,8(45 оценок)
Const   nn= 50; var   a: array[1..nn] of integer;   i,j,k,n: integer;   f: text; begin   write('введите количество чисел: '); read(n);   { формирование входного файла }   randomize;   assign(f,'input.txt'); rewrite(f);   for i: =1 to n do   begin k: =random(50); writeln(f,k) end;   close(f);   { чтение входного файла в массив и вывод }   reset(f);   writeln('элементы массива');   for i: =1 to n do   begin readln(f,a[i]); write(a[i]: 3) end;   close(f);   writeln;   { сортировка по возрастанию методом пузырька }   for i : = 1 to n-1 do       for j : = 1 to n-i do           if a[j] > a[j+1] then           begin k : = a[j]; a[j] : = a[j+1]; a[j+1] : = k end;   { вывод в файл в порядке возрастания }   assign(f,'output.txt');   rewrite(f);   for i: =1 to n do write(f,a[i]: 3);   writeln(f);   { вывод в файл в порядке убывания }   for i: =n downto 1 do write(f,a[i]: 3);   writeln(f);   close(f) end.   

Популярно: Информатика