Т.к. нам сказано, что Dat[k] ><span>=</span> d, то нам нужно найти наибольшее значение Dat[k] но т.к. там несколько одинаковых наиб. и n := k, то записать нужно номер последнего наиб. Dat.
Ответ: 9
Var x,y,t:real;
Begin
write('x = ');readln(x);
write('y = '); readln(y);
if x>y then
Begin
t:=y;
y:=(x+y)/2;
x:=x*t*2;
End
else
Begin
t:=x;
x:=(x+y)/2;
y:=x*t*2;
End;
writeln('X = ',x:0:2);
writeln('Y = ',y:0:2);
readln;
End.
двойной клик (на рисунок) левой кнопкой на мышке, появиться формат рисунка, выбираешь размер и делаешь сколько надо) только в Microsoft Office Word