Ответ(ы) на вопрос:
ГостьДата и время правильное?
Гость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.
Не нашли ответ?
Похожие вопросы