Решение
Pascal
Выделить код
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
const
n = 15; {массив из 15 элементов, можно менять}
var
a : array [1..n] of integer;
i, k, ko, _a : integer;
s : real;
begin
s := 0;
k := 0;
ko := 0;
{заполняем и выводим массив, считаем сумму элементов}
writeln('массив:');
randomize;
write('введите A: ');
readln(_a);
for i := 1 to n do
begin
a[i] := random(100) - 50; {создаем i-ый элемент...}
write(a[i], ' '); {...выводим его...}
{если отрицательный суммируем, считаем кол-во}
if a[i] < 0 then
begin
s := s + a[i];
inc(ko)
end;
{если > A и на четном месте количество +1}
if (a[i] > _a) and (i mod 2 = 0) then inc(k)
end;
writeln; {строку перевели}
writeln('среднее арифметическое отрицательных: ', (s/ko):0:6);
writeln('кол-во больших A на нечетных местах: ', k)
end.
Так как 100 делится на все эти числа, то признаком делимости всего числа на данные будет делимость двух последних цифр числа на данные числа:
Делимость на 4 - число из двух последних цифр числа делится на 4.
Делимость на 25 - число из двух последних цифр числа делится на 25.
Делимость на 50 - число из двух последних цифр числа делится на 50.
Делимость на 100 - число оканчивается на 00.
Есл две последние цифры числа нули, то число состоит из целого количества сотен и делится на 4, на 25, на 50 и на 100.
Рисунок к задаче в приложении.
РЕШЕНИЕ
Прямая ВC: Y = 2/5*X, k1= 2/5
Прямая AH - высота из А:
k2 = -1/k1 = - 5/2
b2 = Ay - k2*Ax = 4 - (-2/5)*2 = 4+5 = 9
Уравнение прямой АD: Y = - 5/2*x + 9 - первая высота
Прямая AB: k3 = - 2/3*x
Уравнение высоты С - AF:
k4 = - 1/k3 = 3/2 и уравнение: Y = 3/2* x - вторая высота.
Точка пересечения высот - решение системы уравнений: AD∩CF.
3/2*x = -5/2*x + 9
4*x = 9, Hx = 9/4 = 2.25
Hy = 3/2*x = 3/2* 2.25 = 3.375
ОТВЕТ: Н(2,25;3,375) - точка пересечения высот.