Даны 3 числа — a, b, c. Упорядочить их по возростанию. Плииз решите

Question

koro6l · Accepted Answer

var a: array [1… 100] of real; i,j,n: integer; t: real; Begin n: =3; for i: =1 to n do read (a[i]); for i: =1 to n-1 do for j: =i+1 to n do if a[i]<a[j] then begin t: =a[i]; a[i]: =a[j]; a[j]: =t; end; for i: =1 to n do write (a[i],'); End. Универсальный метод через массивы. Сейчас работает для трех элементов

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: