ребят!! Составить алгоритм блок схему расчета функции y= (2x-0,6):( 3a-0,2), если а=-7, х- целое число из интервала от -2 до 5.

Using System;

class Program
{
        static void Main(string[] args)
        {
            int n=10;
            int[] a = new int[n];
            int max;
            Random r = new Random();
            Console.WriteLine("Массив a:");
            for (int i = 0; i < n; i++)
            {
                a[i] = r.Next(41)-20;
                Console.Write("{0,5}", a[i]);
            }
            Console.WriteLine();
            max = a[0];
            for (int i = 1; i < n; i++)
                if (a[i]>max) max = a[i];
            Console.Write("max = {0}", max);
            Console.ReadKey();
        }
}

Пример:
Массив a:
 3 7 17 -11 9 20 7 3 -15 10
max = 20

Первое задание, программа задает массив, сортирует его, затем сравнивает элемент с последующем

uses crt;
var
a:array[1..100] of integer;
i,j:integer;
procedure swap(var x,y: integer);
   var t: integer;
 begin
    t := x;
    x := y;
    y := t
 end;
begin
for i:=1 to 100 do a[i]:=random(100);
for j:=1 to 99 do
for i:=1 to 100-j do if a[i] > a[i+1] then swap(a[i],a[i+1]);
for i:=1 to 99 do if a[i]=a[i+1] then
begin
writeln(a[i]);
writeln(a[i+1]);
end;
end.

Второе задание. Программа также сортирует и сравнивает элементы

uses crt;
var
a:array[1..100] of integer;
i,j:integer;
procedure swap(var x,y: integer);
   var t: integer;
 begin
    t := x;
    x := y;
    y := t
 end;
begin
for i:=1 to 100 do a[i]:=random(100);
for j:=1 to 99 do
for i:=1 to 100-j do if a[i] > a[i+1] then swap(a[i],a[i+1]);
for i:=1 to 99 do if a[i]<>a[i+1] then
begin
writeln(a[i]);
end;
end.