Две массив целых чисел a, состоящий из 8 элементов. Запишите программу, которая вычисляет количество элементов массива, кратных 5 отрицателтным

Чтобы задать прямоугольник, достаточно указать координаты концов его диагонали, например, идущей из левого верхнего угла в правый нижний, т.е. две точки: b(x1,y1) и d(x2,y2). но можно также задать и другую диагональ (ac). если считать, что стороны прямоугольника параллельны осям координат то длины сторон могут быть найдены как тогда можно найти и периметр: нахождение периметра оформим процедурой per(x1,y1,x2,y2,p) procedure per(x1,y1,x2,y2: real; var p: real); begin   p: =2*(abs(x2-x1)+abs(y2-y1)) end; var   x1,x2,y1,y2,p: real; begin   write('введите координаты любой вершины прямоугольника: ');   read(x1,y1);   write('введите координаты противоположной вершины прямоугольника: ');   read(x2,y2);   per(x1,y1,x2,y2,p);   writeln('периметр прямоугольника равен ',p) end. тестовое решение: введите координаты любой вершины прямоугольника: 5 -7 введите координаты противоположной вершины прямоугольника: -4 12 периметр прямоугольника равен 56