Нужно вытянуть ! напишите процедуру ввода n элементов массива из файла. отсортируйте по невозрастанию методом простого обмена. (паскаль)

julia77mama julia77mama    3   19.06.2019 04:00    1

Ответы
lanadanelianlana lanadanelianlana  02.10.2020 05:05
Var  i,j,n,k: integer; 
 a: array [1..100] of integer;
begin
assign (input,'input.txt');
reset(input);
assign(output,'output.txt');
rewrite(output);
readln (n);
for i:=1 to n do
read(a[i]);
for i:=1 to n do 
for j:=1 to n-i do
 if a[j+1]>a[j]
then begin k:=a[j]; a[j]:=a[j+1]; a[j+1]:=k; end;
for i:=1 to n do
write (a[i],' ');
end.

Входные данные писать в файл input.txt в формате:
n
a[i] a[i+1] a[i+2]...a[n].
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика