Задачу решить двумя способами: с использованием подпрограммы-функции и подпрограммы-процедуры. Обязательно построение блок-схем
алгоритмов!
1. Треугольник задан координатами своих вершин. Вычислить площадь треугольника по формуле Герона с использованием подпрограммы нахождения расстояния между двумя точками на координатной плоскости.
Полезные формулы: 1. Формула Герона: S=sqrt((p-a)(p-b)(p-c)) , где p=a+b+c/2 (полупериметр треугольника со сторонами a, b и c) 2. Расстояние между двумя точками на координатной плоскости: d=sqrt(sqr(x2-x1)+sqr(y2-y1)) , где (x1, y1) и (x2, y2) – координаты первой и второй точек соответственно.
var a: array[1..n] of integer; i, t, min: integer;
begin min := nmax; for i := 1 to n do begin Read(t); a[i] := t; if (t > 0) and (t mod 2 = 0) then if min > t then min := t end; if min <> nmax then Writeln('Минимальный положительный четный элемент равен ', min) else Writeln('В массиве нет четных положительных элементов') end.