Во по всем заранее за Вводится одномерный массив 12 целых чисел. Разработайте проект, который вычисляет количество нулевых и произведение положительных чисел. Предусмотреть ввод значений с клавиатуры и вывод результата на экран

using System;

using System.Collections.Generic;

using System.Linq;

using System.Numerics;

public class Program

{

   public static void Main(string[] args)

   {

       Console.WriteLine("Enter 12 integer numbers");

       var Arr = new List<int>();

       for (int i = 0; i < 12; i++)

       {

           Arr.Add(int.Parse(Console.ReadLine()));

       }

       Console.WriteLine($"Кол-во нулевых элементов: {Arr.Where(p => p == 0).Count()}");

       Console.WriteLine($"Positive numbers product: {Arr.Where(p => p > 0).Aggregate(BigInteger.One, (p, q) => p * q)}");

       Console.ReadKey();

   }

}

Объяснение:

Добавьте ссылку на сборку System.Numerics в вашем проекте для корректной работы программы. Иначе будет ругаться на несуществующее

program treugolnik;

uses crt;

var

x1, y1, x2, y2, x3, y3, p:real;

function dlina(a1,b1, a2,b2:real):real;

begin

dlina:=sqrt(sqr(a1-a2)+sqr(b1-b2));

end;

begin

writeln('Введите координаты 1-ой вершины');

write('x='); readln(x1);

write('y='); readln(y1);

writeln('Введите координаты 2-ой вершины');

write('x='); readln(x2);

write('y='); readln(y2);

writeln('Введите координаты 3-ей вершины');

write('x='); readln(x3);

write('y='); readln(y3);

p:=dlina(x1,y1,x2,y2)+dlina(x1,y1,x3,y3)+dlina(x2,y2,x3,y3);

writeln('Периметр=',p);

end.