•  Значения переменных X, Y, Z поменять местами
    так, чтобы они оказались упорядоченными по возрастанию. 

Ответы 1

  • var a: array[1..3] of integer;     i,j,b: integer; begin writeln ('Vvedite 3 chisla'); readln (a[1],a[2],a[3]);   for i:= 1 to 2 do for j:= 1 to 3-i do if a[j]>a[j+1] then begin b:= a[j]; a[j]:= a[j+1]; a[j+1]:= b; end;   for i:= 1 to 3 do write (a[i],' '); readln; end.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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