• Впорядкувати три довільних числа в порядку зростання в ПАСКАЛІ

Ответы 1

  • const nx=20;var A:array[1..nx] of integer; i,j,n,d:integer;beginfor i:=1 to 3 do beginwriteln('Введите число');readln(A[i]);end;for j:=1 to 3 do beginfor i:=2 to 3 do beginif 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 dowriteln(A[i]);end.
    • Автор:

      guinness
    • 5 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years