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

5 балов маловато,но спасибо

Кстати я сделал масивом,ві их учили?

Вы*

const n=3;{можно любое число}var a:array [1..n] of Integer;x,q,i:Integer;b,c,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];c:=x;Writeln(c:3:2,'-Naibolshoe');q:=a[1];for i:=2 to n doif q>a[i]then q:=a[i];z:=q;Writeln(z:3:2,'-Naimenshoe');b:=(x+q)/2;WriteLn(b:3:2,'-seredne arifmitichne') ;readln;end.