Дана квадратная матрица порядка N. В матрице вычислить среднее арифметическое отрицательных элементов, стоящих на главной диагонали
В лазарусе

using System;

using System.Collections.Generic;

using System.Linq;

using System.Text;

using System.Threading.Tasks;

namespace ConsoleApp1

{

   class Program

   {

       static void Main(string[] args)

       {

           double x1, x2, x3, y1, y2, y3;

           Console.WriteLine("Введите координаты:");

           x1 = Double.Parse(Console.ReadLine());

           y1 = Double.Parse(Console.ReadLine());

           x2 = Double.Parse(Console.ReadLine());

           y2 = Double.Parse(Console.ReadLine());

           x3 = Double.Parse(Console.ReadLine());

           y3 = Double.Parse(Console.ReadLine());

           double dist12 = Math.Sqrt(Math.Pow((x2 - x1), 2) + Math.Pow((y2 - y1), 2));

           double dist13 = Math.Sqrt(Math.Pow((x3 - x1), 2) + Math.Pow((y3 - y1), 2));

           double dist23 = Math.Sqrt(Math.Pow((x3 - x2), 2) + Math.Pow((y3 - y2), 2));

           double P = dist12 + dist13 + dist23;

           double p = P / 2;

           double Area = p * (p - dist12) * (p - dist13) * (p - dist23);

           Console.WriteLine("Площадь {0}", Area);

           Console.ReadKey();

       }

   }

}

Вот программа : program xxx; 
<p>program xxx;</p><p>&nbsp;&nbsp; var i, k, d, e, s : integer;</p><p>begin</p><p>&nbsp; k:=0;</p><p>&nbsp;for i:= 10 to 99 do</p><p>&nbsp;&nbsp; begin</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; d:= i div 10;</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; e:= i mod 10;</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; s:=d + e;</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if i mod s = 0 then k:=k+1</p><p>&nbsp;&nbsp; end;</p><p>&nbsp;&nbsp; write ('кол-во чисел которые делятся на сумму своих цифр=', k);</p><p>&nbsp;&nbsp; readln</p><p>end.</p>