Ответы
Ответ дал:
0
Дата и время правильное?
Ответ дал:
0
var i,n,p,j:integer; z:array[1..100]of integer;beginreadln(n);for i:=1 to n do readln(z[i]);for i := 1 to n - 1 do for j := i + 1 to n do if z[i] > z[j] then begin p := z[i];z[i] := z[j];z[j] := p end; for i:= 1 to n do writeln(z[i]); end.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад