Помогите, пожалуйста. 1. В вещественной таблице А[1:10] найдите количество всех...

Question

Помогите, пожалуйста.
1. В вещественной таблице А[1:10] найдите количество всех положительных элементов.
2. Для линейной вещественной таблицы В[1:10] найдите сумму всех элементов которые кратны 3.
3. Дана вещественная таблица [1:20]. Замените каждый элемент этой таблицы на его квадрат.
4. Даны два массива одного размера. Получить третий массив, того же размера по правилу: четный элемент третьего массива равен разности между максимальным элементом второго массива и порядковым элементом из первого массива, а нечетный-равен разности между максимальным элементом первого массива и порядковым элементом из второго.
5. Дан массив из четного числа элементов. Поменять местами его половины следующим образом: первый элемент поменять с последним, второй-с предпоследним и т.д.
Буду очень благодарна

Answer 1

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
  var a:=ArrRandomReal(10,0,9); a.Println;
  var c:=a.Average;
  Writeln('Кол-во элементов, больших ср.арифм. равно ',
    a.Where(x->x>c).Count)
end.

Тестовое решение:
2.59730962412307 5.74823168187786 0.183425193737925 1.40910695977933 1.53072231054805 1.10500636608573 2.72817251073577 5.34373824686917 8.61965516750685 6.63805930904954
Кол-во элементов, больших ср.арифм. равно 4