Заполнить массив 10-ю случайными целыми числами из промежутка [5; 18] и вывести на экран каждый третий элемент.

user crt;

var

a:array{1 .. 10} of integer;

1: byte;

randomze;

begin

for i:=1 to 10 do begin

  a{i}:=random(18)+5;

 if (i mod 3=0) then write (a[i], ' ');

end;

end.

Объяснение:

Задания 4 и 5:

Задание 4:

static void Main(string[] args)

       {

           int N = 10, count, sum = 0;

           int[] mas = new int[N];

           Random rnd = new Random();

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

           {

               mas[i] = rnd.Next(0, 10);

           }

           Console.WriteLine("Массив: ");

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

           {

               Console.Write(String.Format("{0,4}", mas[i]));

           }

           Console.WriteLine();

           Console.WriteLine();

           Console.Write("Введите количество элементов для суммирования (n): ");

           count = Convert.ToInt32(Console.ReadLine());

           if (count > N)

           {

               count = N;

               Console.WriteLine();

               Console.Write("Количество элементов не должно превышать размерность массива.");

           }

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

           {

               sum += mas[i];

           }

           Console.WriteLine();

           Console.Write("Сумма первых " + count + " элементов массива = " + sum);

           Console.ReadKey();

       }

Задание 5:

static void Main(string[] args)

       {

           int N = 10, x, y, sum = 0;

           int[] mas = new int[N];

           Random rnd = new Random();

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

           {

               mas[i] = rnd.Next(0, 10);

           }

           Console.WriteLine("Массив: ");

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

           {

               Console.Write(String.Format("{0,4}", mas[i]));

           }

           Console.WriteLine();

           Console.WriteLine();

           Console.Write("Введите x: ");

           x = Convert.ToInt32(Console.ReadLine());

           Console.Write("Введите y: ");

           y = Convert.ToInt32(Console.ReadLine());

           if (x > N)

           {

               x = N / 2;

           }

           if (y > N)

           {

               y = N;

           }

           if (y < x)

           {

               x = N / 2;

               y = N;

               Console.WriteLine();

               Console.Write("x не должен быть больше y.");

           }

           for (int i = x - 1; i < y; i++)

           {

               sum += mas[i];

           }

           Console.WriteLine();

           Console.Write("Сумма элементов массива, с " + x + " элемента по " + y + " равна " + sum);

           Console.ReadKey();

       }

Объяснение:

Задания 4 и 5 на языке C#.

1) Var a:integer;
Begin   
       Writeln('Введите число');     
           Readln(a);     
If (a mod 2  = 0) then writeln('Введённое число чётное.') 
 Else writeln('Введённое число чётное'); 
End.

2)  var A,A1,B,B1,C,C1:integer;
Begin   
     a:=4;b:=1;c:=7;   
        Writeln('Дан треугольник со сторонами A=4 B=1 C=7');   
        Writeln('Введите стороны треугольника A,B,C');     
         Readln(A1,B1,C1);     
If (A=A1) and (B=B1) and (C=C1) then writeln('треугольники равны') 
   Else writeln('треугольники не равны'); 
End.

3)var x,y:integer;
Begin 
   write('Введите первый промежуток: ');  readln(x); 
      write('Введите второй промежуток: ');  readln(y); 
if x<y then write('Отдаляется')
   else write('Приближается');
end.