Обработка одномерного массива : количество элементов: 20 вещественный чисел ввода: датчик случайных чисел вывода: в строку, через один пробел ; обработка массива: найти количество элементов равных 10 ; поиск: элементов равных 0 ; перестановка в массиве : поменять местами 3 и 6 элемент в массиве. данный массив нужно оформить в pascalabc ( не .net, так как другой паскаль в кабинете информатики не поддерживается железом ) буду каждому, кто , если такие буду.

Program Pas02;
uses Crt;
const
  n=20;
var
  a:array[1..n] of real;
  i,k:integer;
  t:real;
begin
  Randomize;
  ClrScr;
  Writeln('Массив случайных чисел');
  k:=0;
  for i:=1 to n do begin
    a[i]:=Random(31)-15.0;
    Write(a[i]:6:1);
    if a[i]=10.0 then Inc(k)
    end;
  Writeln;
  Writeln('Количество элементов, равных 10: ',k);
  Write('Нулевые элементы ');
  k:=0;
  for i:=1 to n do
    if a[i]=0 then begin Inc(k); Write(i,' ') end;
  if k=0 then Writeln('отсутствуют') else Writeln;
  Writeln('Меняем местами элементы 3 и 6');
  t:=a[3];
  a[3]:=a[6];
  a[6]:=t;
  for i:=1 to n do
    Write(a[i]:6:1);
  Writeln
end.

Тестовое решение
Массив случайных чисел
   2.0 -12.0   8.0  -2.0  -1.0   3.0 -12.0  -9.0   3.0   9.0  -8.0   0.0  -7.0  -4.0 -12.0  10.0   9.0   5.0  -8.0   6.0
Количество элементов, равных 10: 1
Нулевые элементы 12
Меняем местами элементы 3 и 6
   2.0 -12.0   3.0  -2.0  -1.0   8.0 -12.0  -9.0   3.0   9.0  -8.0   0.0  -7.0  -4.0 -12.0  10.0   9.0   5.0  -8.0   6.0

126 дисков

Объяснение:

Рассмотрим 6го покупателя

х-было  

0,5х+1-продал

осталось 0

х-(0,5х+1)=0

х-0,5х-1=0

0,5х=1

х=1:0,5=2

Аналогично 5й покупатель

х-(0,5х+1)=2

х-0,5х-1=2

0,5х=3

х=3:0,5=6

Аналогично 4й покупатель

х-(0,5х+1)=6

х-0,5х-1=6

0,5х=7

х=7:0,5=14

Аналогично 3й покупатель

х-(0,5х+1)=14

х-0,5х-1=14

0,5х=15

х=15:0,5=30

Аналогично 2й покупатель

х-(0,5х+1)=30

х-0,5х-1=30

0,5х=31

х=31:0,5=62

Аналогично 1й покупатель

х-(0,5х+1)=62

х-0,5х-1=62

0,5х=63

х=63:0,5=126

ответ: Попов принес на ярмарку 126 дисков

           Random rnd = new Random();

           Console.WriteLine("Введите размерность массива");

           int n = Convert.ToInt32(Console.ReadLine());

           int[,] Array = new int[n, n];

           for (int i = 0; i < Array.GetLength(0); i++)

           {

               for (int j = 0; j < Array.GetLength(1); j++)

               {

                   Array[i, j] = rnd.Next(10, 100);

                   Console.Write($"{Array[i,j]}\t");

               }

               Console.WriteLine();

           }

           int[] summ = new int[n];

           for (int i = 0; i < Array.GetLength(0); i++)

           {

               for (int j = 0; j < Array.GetLength(1); j++)

               {

                   summ[i] += Array[j, i];

               }

           }

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

           {

               Console.WriteLine($"\n{summ[i]/n}");

           }

           Console.ReadKey();

Объяснение: