begin var n:=ReadInteger('n='); var (max,k,tmp):=(integer.MinValue,0,0); loop n do begin Read(tmp); if tmp>max then (max,k):=(tmp,1) else if tmp=max then k+=1 end; Writeln('Максимум ',max,' встречен ',k,' раз(а)') end.
from math import sqrt as sqrt x1, y1, x2, y2, x3, y3 = list(map(int,input().split())) a = sqrt((x2-x1)**2 + (y2-y1)**2) b = sqrt((x3-x2)**2 + (y3-y2)**2) c = sqrt((x1-x3)**2 + (y1-y3)**2) p = (a+b+c)/2 S = sqrt(p*(p-a)*(p-b)*(p-c)) R = round((a*b*c)/(4*S),3) print(R)
Объяснения: 1) Задаём координаты (вводим 6 цифр через пробел) 2) Считаем длины сторон треугольника 3) Находим полупериметр 4) Находим площадь 5) Находим радиус описанной окружности и округляем его до 3 знаков после запятой(если не нужно округлять - оставьте только (a*b*c)/(4*S)) 6) Выводим ответ
