Обработка одномерного массива :
Количество элементов: 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);  Writelnend.Тестовое решениеМассив случайных чисел   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