Max:=<span>-32768</span>;
for i:=1 to 7 do
if a[i] > max then
max:=a[i];
for i:=1 to 7 do
if a[i]>o then
a[i]:=max;
Алгоритм посадки дерева:
опустить в ямку саженец,засыпать ямку с саженцем землёй,полить саженец водой,выкопать в земле ямку
===== PascalABC.NET =====
function nF(n: integer) := Range(1, n).Product;
begin
SeqGen(5, i -> nF(i), 1).Sum.Println
end.
Var x1, y1, x2, y2: real;
c:char;
begin
repeat
read(c);
until c='>';
read(c);
readln(x1,y1);
repeat
read(c);
until c='>';
read(c);
readln(x2,y2);
x1 := x1*x1 + y1*y1 - x2*x2 - y2*y2;
if (x1 > 0) then
writeln('2-я точка ближе')
else if (x1 < 0) then
writeln('1-я точка ближе')
else
writeln('Точки на одинаковом расстоянии')
end.