1. Правильно ли описан массив А? Если нет, то что надо дописать? Type myarray=Array[0..-n] Of Integer;

Var A: myarray;

2. Что получится в результате выполнения программы?

Program Variant5;

Const n=12;

Type myarray=Array[1..n] Of Integer;

Var C: myarray;

i: Byte; p: Integer;

Begin

For i:=l To n Do

Begin

C[i]:=-25+Random(71);

If C[i] Mod 3=0 Then p:=p+l;

End;

Writeln(p);

Readln;

End.

3. Дан массив целых чисел, состоящий из 30 элементов. Заполнить его с клавиатуры. Найти:

• сумму отрицательных элементов;

• число тех элементов, значения которых положительны и не превосходят заданного числа А.

Найти номер последней пары соседних элементов с разными знаками.

using System;

using System.Drawing;

namespace App

{

   class Triangle

   {

       public Point A { get; }

       public Point B { get; }

       public Point C { get; }

       public Triangle(int x1, int y1, int x2, int y2, int x3, int y3)

       {

           A = new Point(x1, y1);

           B = new Point(x2, y2);

           C = new Point(x3, y3);

       }

       public override string ToString() => $"A({A.X},{A.Y}); B({B.X},{B.Y}); C({C.X},{C.Y})";

   }

   class Program

   {

       static void Main(string[] args)

       {

           Triangle triangle = new Triangle(0, 0, 1, 2, 3, 2); // x1,y1,x2,y2,x3,y3  

           Console.WriteLine(triangle.ToString()); // Вывод: A(0,0); B(1,2); C(3,2)

       }

   }

}

Объяснение:

using System;

namespace App

{

   class Program

   {

       static void Main(string[] args)

       {

           Print(1, 2);  

           Print("a", 'b');  

           Print(1, "a");  

           Print(true, "a", 1);

       }

       static void Print(params object[] values)

       {

           string result = "";

           for (int i = 0; i < values.Length; i++)

           {

               result += values[i].ToString();

               if (i + 1 < values.Length)

                   result += ", ";

           }

           Console.WriteLine(result);

       }

   }

}