и сфоткайте . для информатики нужно

var  

v:array[1..100] of integer;  

i,j,n,b:integer;  

begin  

randomize;  

write('vvedite razmernost'' massiva: '); readln(n);  

writeln(' Ishodnii massiv '); writeln;  

//Заполним массив случайными числами  

for i := 1 to n do  

begin  

v[ i]:=random(100)-50;  

write(v[ i]:4);  

end;  

writeln;  

// организуем сортироваку от минимального  

// к максимальному элементу массива  

for i:=1 to n-1 do  

for j:=i+1 to n do  

if v[ i]>v[ j] then  

begin  

b:=v[ i];  

v[ i]:=v[ j];  

v[ j]:=b;  

end;  

writeln;  

write(' Otsortirovannii massiv ');writeln;writeln;  

write('ot min k max: ');writeln;  

for i := 1 to n do  

write(v[ i]:4); writeln; writeln;  

write('ot max k min: '); writeln;  

for i := n downto 1 do  

write(v[ i]:4);  

readln;  

end.

using System;

using System.Collections.Generic;

using System.Linq;

using System.Text;

using System.Threading.Tasks;

namespace example

{

   class Program

   {

       static void Main(string[] args)

       {

           double x = 0;

           Console.WriteLine("Введите число n");

           int n = int.Parse(Console.ReadLine());

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

           {

               Console.WriteLine("Введите " + (i+1) +" число");

               x =x + int.Parse(Console.ReadLine());

                   }

           x = x / n;

           Console.WriteLine("среднее арифметическое целых чисел составило: "+ x);

           Console.ReadLine();

       }

   }

}