Регистрация
gbn2r56
15.06.2020 14:58
Информатика
Есть ответ 👍

Упорядочить массив по возрастанию ( по убыванию)

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

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

genri5673
genri5673
4,7(100 оценок)
Сортировка по возрастанию: const n=20;   var   a: array[1..n] of integer;   i,j,t: integer; begin   randomize;   writeln('исходный массив: ');   for i: =1 to n do begin     a[i]: =random(51)-25;     write(a[i],' ')   end;   writeln;   for i: =1 to n-1 do     for j: =1 to n-i do       if a[j]> a[j+1] then       begin t: =a[j]; a[j]: =a[j+1]; a[j+1]: =t end;   writeln('отсортированный массив: ');   for i: =1 to n do write(a[i],' ');   writeln end. пример: исходный массив: 18 2 16 17 -14 -15 -18 -18 9 -5 -4 -9 -7 12 24 16 11 15 -24 22  отсортированный массив: -24 -18 -18 -15 -14 -9 -7 -5 -4 2 9 11 12 15 16 16 17 18 22 24 
superdyuseldor
superdyuseldor
4,6(81 оценок)
Язык программирования паскаль? program ant; var x,f: real; var n: integer; begin writeln('введите x'); readln(x); writeln('введите n'); readln(n); while x> =0 do  begin f: =exp(n*ln(x)); write('f='); writeln(f: 4: 2); end; readln; end.

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