с дз по инфе
1. Дан массив целых чисел, состоящий из 20 элементов в диапазоне [-10,5]. Какая из сумм элементов больше у первой половины массива или у второй? Выведите на экран большую сумму
2. Дан массив целых чисел, состоящий из 20 элементов в диапазоне [5,15]. Определить количество элементов, больших среднего арифметического всех четных чисел. Выведите соответствующие элементы.
3. Дан массив целых чисел, состоящий из 10 элементов в диапазоне [-10,14]. Вывести на экран сумму отрицательных элементов, расположенных на нечетных местах.
Объяснение:
мая 02
С 16:00 по 16:30
Длина стороны может быть определена как расстояние между соответствующими сторонами треугольника:
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
type
Point=record
x,y:real
end;
procedure GetPoint(c:char;var M:Point);
begin
Write('Введите координаты точки ',c,': ');
Read(M.x,M.y)
end;
function Dist(a,b:Point):=sqrt(sqr(b.x-a.x)+sqr(b.y-a.y));
begin
var A,B,C:Point;
GetPoint('A',A); GetPoint('B',B); GetPoint('C',C);
var ab:=Dist(A,B);
var bc:=Dist(B,C);
var ac:=Dist(A,C);
if (ab<bc+ac) and (bc<ab+ac) and (ac<ab+bc) then
Writeln('Треугольник существует')
else Writeln('Треугольник не существует')
end.
Тестовое решение:
Введите координаты точки A: -6.9 -5.3
Введите координаты точки B: 0 11.4
Введите координаты точки C: 9 3
Треугольник существует