1. в вещественной таблице а[1: 10] найдите количество всех положительных элементов. 2. для линейной вещественной таблицы в[1: 10] найдите сумму всех элементов которые кратны 3. 3. дана вещественная таблица [1: 20]. замените каждый элемент этой таблицы на его квадрат. 4. даны два массива одного размера. получить третий массив, того же размера по правилу: четный элемент третьего массива равен разности между максимальным элементом второго массива и порядковым элементом из первого массива, а нечетный-равен разности между максимальным элементом первого массива и порядковым элементом из второго. 5. дан массив из четного числа элементов. поменять местами его половины следующим образом: первый элемент поменять с последним, второй-с предпоследним и т.д. буду
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