ПАСКАЛЬ
Даны три числа. Найти среди них максимальное,среднее,минимальное.

сделал с массивом,надеюсь что ві его уже учили

вы*

можешь заминить 3 на любое число,и тогда будет не 3 числа а любое

количество

const n=3;var a:array [1..n] of Integer;x,q,i:Integer;b,l,z:Real;beginfor i:=1 to n dobeginWrite('a[',i,']=');ReadLn(a[i]);end;x:=a[1];for i:=2 to n doif x<a[i]then x:=a[i];z:=x;writeln(z:3:3,'-naibolshoe');q:=a[1];for i:=2 to n doif q>a[i]then q:=a[i];l:=q;writeln(l:3:3,'-naimenshoe');b:=(x+q)/2;WriteLn(b:3:2,'-serednoe') ;readln;end.