Впорядкувати три довільних числа в порядку зростання в ПАСКАЛІ
Впорядкувати три довільних числа в порядку зростання в ПАСКАЛІ
Гость
Ответ(ы) на вопрос:
Гостьconst nx=20;var A:array[1..nx] of integer; i,j,n,d:integer;begin
for i:=1 to 3 do begin
writeln('Введите число');readln(A[i]);end;
for j:=1 to 3 do begin
for i:=2 to 3 do begin
if A[i-1]> A[i] then begin
d:= A[i-1]; A[i-1]:= A[i];A[i]:=d;end;
end;end;writeln;
for i:=1 to 3 do
writeln(A[i]);end.
Не нашли ответ?
Похожие вопросы