Помогите решить задачу через условный оператор, оченнь надо, Помогите решить задачу через условный оператор, оченнь надо Опции

[Bazz]

[font=Times New Roman]
Дано 4 числа.Если сума найбольшего и найменшего больше суммы 2 - х других чисел, тогда найти среднее геометрическое всех чисел, в другом случае найти их среднее арифметическое.

Помогите очень надо!!! Срочно.

[Артемий]

Ну тогда так:

function kor(y:real;z:integer):real;
var z1,x:integer;
begin
z1:=z div 2;
for z1:=1 to z1 do begin
y:=sqrt(y);end;
kor:=y;
end;

И используй так:

if (min+max)>(other[1]+other[2]) then begin
_result:=kor(max*min*other[1]*other[2],4);
end else writeln('I cant do it!');

?