То средние значение от B3 до B8 поделим на 2
240\6=40 это ответ выполненный после твоей формулы
Лукас мне:3
var x1, x2, x3, y1, y2, y3: integer;
AB, BC, AC, P: real;
function dlina (x1, y1, x2, y2: integer):real;
begin
dlina :=sqrt(sqr(x2-x1)+sqr(y2-y1));
end;
begin
writeln ('Введите координаты точки A');
read (x1,y1);
writeln ('Введите координаты точки B');
read (x2,y2);
writeln ('Введите координаты точки C');
read (x3,y3);
AB:= dlina (x1, y1, x2, y2);
BC:= dlina (x2, y2, x3, y3);
AC:= dlina (x1, y1, x3, y3);
P:=AB+BC+AC;
writeln ('Периметр треугольника равен',' ', P);
end.
Program Begenjov1997;
const
n = 30; {Количество элементов массива}
m = 10000; {Максимально возможное значение элемента}
var
a:array[1..n] of integer;
i, sum: integer;
s:string;
begin
s:='**** -=Alphaeus=- ****';
for i:=1 to 22 do begin write(s[i]); sleep(60) end;
{заполняем массив случайными числами}
writeln; randomize;
for i:=1 to n do a[i]:=random(m+1);
{Ищем максимальный и минимальный элементы}
sum:=0;
for i:=1 to n do
if (a[i]<200) and (a[i] mod 5 = 0) then sum:=sum+a[i];
{Заменяем эти элементы найденной суммой}
for i:=1 to n do
if (a[i]<200) and (a[i] mod 5 = 0) then a[i]:=sum;
{Вывод}
writeln;
for i:=1 to n do writeln(a[i]);
end.
Правильный ответ - №1.
Тем, что описано во втором ответе, занимаются антивирусы-сканеры.