Дан одномерный массив с (10) заполненный вручную с клавиатуры,отсортировать по возрастанию и убыванию.

280

401

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

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

kabylbekova2002

Информатика

4,4(65 оценок)

Var c: array[1..100] of integer; s,j,n,i: integer; begin readln(n); for i: =1 to n do read(c[i]); //сортировка по возрастанию for j: =1 to n-1 do for i: =1 to n-j do if c[i]> c[i+1] then begin s: =c[i]; c[i]: =c[i+1]; c[i+1]: =s; end; //вывод for i: =1 to n do write(c[i],' '); writeln; //сортировка по убыванию for j: =1 to n-1 do for i: =1 to n-j do if c[i]< c[i+1] then begin s: =c[i]; c[i]: =c[i+1]; c[i+1]: =s; end; //вывод for i: =1 to n do write(c[i],' '); end.