Var i,n, pol: integer; //pol - количество положительных чисел, n - количество всех чисел a,s: real; //a- вводимое число, s - сумма положительных чисел
begin pol:= 0; //обнуляем счетчик s:= 0; writeln('Введите количество чисел'); readln(n); for i:= 1 to n do begin writeln('Введите число'); readln(a); if a > 0 then begin s:= s + a; pol:= pol + 1; end; end; writeln('Среднее арифметическое положительных чисел: ', s / pol); {среднее арифметическое равно сумме чисел делить на их количество} end.
Из трех отрезков a, b, c можно составить треугольник, если выполняется неравенство треугольника: сумма длин двух любых сторон треугольника строго больше длины третьей.
program triangle; var a,b,c:integer; res:string; begin readln(a,b,c); { отсортировать a,b,c. Имеем: a <= b <= c } if c >= a + b then res := 'Не возможно!' else if c*c = a*a + b*b then res := 'Возможно, прямоугольный.' else if c*c < a*a + b*b then res := 'Возможно, остроугольный.' else res := 'Возможно, тупоугольный'; writeln(res); end.
Объяснение:
Ну чо сказать. Если Ты Это Перевёл, Значит Ты Тупой