Обработка одномерного массива :
Количество элементов: 20 вещественный чисел ;
Способ ввода: датчик случайных чисел ;
Способ вывода: В строку, через один пробел ;
Обработка массива: Найти количество элементов равных 10 ;
Поиск: Элементов равных 0 ;
Перестановка в массиве : Поменять местами 3 и 6 элемент в массиве.

Надеюсь, есть смышлённые люди, которые смогут помочь Мне с данной задачей. Благодарю Вас заранее, надеюсь, Вы дадите верный ответ в виде программы.

// PascalABC.Net 3.2, сборка 1319 от 08.10.2016begin  var n:=20;  var a:=ArrRandom(n,-12,12);  Writeln('Массив случайных чисел'); a.Println;  Println('Количество элементов, равных 10:',a.Where(x->x=10).Count);  Write('Нулевые элементы ');  var k:=0;  for var i:=0 to n-1 do    if a[i]=0 then begin Inc(k); Print(i+1) end;  if k=0 then Writeln('отсутствуют') else Writeln;  Writeln('Меняем местами элементы 3 и 6');  Swap(a[2],a[5]); a.Printlnend.Результат работы программыМассив случайных чисел-12 -4 5 10 5 4 -5 11 0 -8 -5 -7 1 2 -1 9 0 -5 10 -2Количество элементов, равных 10: 2 Нулевые элементы 9 17 Меняем местами элементы 3 и 6-12 -4 4 10 5 5 -5 11 0 -8 -5 -7 1 2 -1 9 0 -5 10 -2