Программа обрабатывает одномерный целочисленный массив Dat: i 1 2 3 4 5 6 7 8 9 10 Dat[i] 70 80 90 100 80 40 40 70 80 90 Определите, какие числа будут выведены в результате выполнения следующего фрагмента программы: k := 1; m := dat[k]; for i := 2 to 10 do if dat[i] < m then begin m := dat[i]; k := i; end; writeln('m = ', m); writeln('k = ', k);

Чертеж дан в приложении. E, F, K - это точки с задданными координатами., расположенные на серединах сторон треугольника ABC.
Для этих точек можно записать известные соотношения:

Приведем их к целочисленным коэффициентам.

Сложим все три уравнения отдельно для X и Y:

Теперь можно записать выражения для нахождения координат вершины А:

Окончательно расчетные формулы:


var
  xE, yE, xF, yF, xK, yK, xA, yA: real;

begin
  Write('Введите через пробел координаты точки E(x,y): ');
  Readln(xE, yE);
  Write('Введите через пробел координаты точки F(x,y): ');
  Readln(xF, yF);
  Write('Введите через пробел координаты точки K(x,y): ');
  Readln(xK, yK);
  xA := xE + xF - xK; yA := yE + yF - yK;
  Writeln('Координаты точки А: ', xA:0:2, ' ', yA:0:2)
end.

Тестовое решение:

Введите через пробел координаты точки E(x,y): 45.67 67.89
Введите через пробел координаты точки F(x,y): 12.34 56.78
Введите через пробел координаты точки K(x,y): 90.12 34.56
Координаты точки А: -32.11 90.11

Тот самый, нередкий случай, когда программа гораздо проще и короче, чем сопутствующие ей математические выкладки.