Будьте добры, с в паскале! желательно с объяснением) пользователь водит 5 чисел. записать их в порядке возрастания в одну строку через запятую.

155

351

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

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

swetadasa

Информатика

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

Const n =5; //константа var a: array [1..n] of integer; //массив под 5 чисел i,x,j: integer; begin for i: = 1 to n do //ввод чисел begin readln(a[i]); end; writeln('числа в порядке возрастания: '); for i: = 1 to n do //сортировка массива for j: = 1 to n do begin if (a[i]< a[j]) then // если i-й элемент < j-го, то меняем местами begin x: =a[i]; a[i]: =a[j]; a[j]: =x; end; end; for j: = 1 to n do //вывод чисел if j < > 5 then write(a[j]+',') else write(a[j]); readln end.