1. в вещественной таблице а[1: 10] найдите количество - вопрос №66702821110 от 190520041 11.06.2020 14:19

Question

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

190520041 · Answer

// 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