Изменить программу, чтобы работала в Паскале: Const
Sz=100;
Var
i: Integer;
a:array[1..Sz]of integer;
N:Integer ;
Begin
N:=20;
For i:=1 to N do
a[i]:=random (100);
WriteLn('Эл. массива');
For i:=1 to N do
Write (a[i], ' ');
WriteLn ;
For i:=1 to N div 2 do
Swap(a[i],a[N-i+1]);
WriteLn('После инвертирования:');
For i:=1 to N do
Write (a[i], ' ');
End. ​

ответ описал в объяснении

Объяснение:

var a,b,c: real;  //Объявление переменных a,b,c типа real(вещественный)

x1,x2,D: real;  //Объявление переменных x1,x2,D типа real(вещественный)

begin  //Начало программы, ее тело

readln(a,b,c);  //Ввод  с клавиатуры значений a,b,c

D := b*b - 4*a*c;  //Формула вычисления дискриминанта

if D<0 then  //Оператор если, в данном случае "ЕСЛИ ДИСКРИМИНАНТ МЕНЬШЕ НУЛЯ,ТО "

writeln('Корней нет')  //Выполнение условия ЕСЛИ, вывод текста "Корней нет"

else if D=0 then begin  // Условие ИНАЧЕ ЕСЛИ, проверка дискриминанта на принадлежность к нулю

x1 := -b/2/a;  //Выполнение условия ИНАЧЕ ЕСЛИ, нахождение х1

writeln('x1=x2=',x1);  //вывод корней

end  //Окончание предыдущего блока begin

else begin  //Условие ИНАЧЕ

x1 := (-b-sqrt(D))/2/a;  //нахождение первого корня

x2 := (-b+sqrt(D))/2/a;  //нахождение второго корня

writeln('x1=',x1,' x2=',x2);  // вывод корней уравнения

end;  //Окончание предыдущего блока begin

end. //Окончание программы

Программа заполняет массив из 10 элементов квадратами натуральных чисел в промежутке от 1 до 10 и считает среднее арифметическое этого массива. Если нужен другой интервал, измените размер массива.

using System;

namespace ConsoleApp1

{  

   class Program

   {

       const int ArraySize = 10;  // Размер массива

       static double Average(ref int[] A)

       {

           double res = 0;

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

               res += A[i];

           return res / ArraySize;

       }

       static void Main(string[] args)

       {

           int[] A = new int[ArraySize];

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

           {

               A[i] = (i + 1) * (i + 1);

               Console.Write(A[i]+", ");

           }

           Console.WriteLine("Среднее арифметическое: {0}",Average(ref A));

       }

   }

}