Дан одномерный массив а) найти количество элементов меньших последнего элементов. в) найти количество элементов больших среднего арифметического массива.
PascalABC.NET 3.3.5, сборка 1640 от 17.03.2018 Внимание! Если программа не работает, обновите версию!
begin var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println; var al:=a.Last; Writeln('Элементов, меньших последнего, ',a.Where(t->t<al).Count); var m:=a.Average; Writeln('Элементов, больших ср.арифм, ',a.Where(t->t>m).Count); end.
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var al:=a.Last;
Writeln('Элементов, меньших последнего, ',a.Where(t->t<al).Count);
var m:=a.Average;
Writeln('Элементов, больших ср.арифм, ',a.Where(t->t>m).Count);
end.
Пример
n= 13
-18 16 -36 -32 46 -2 -2 -4 -1 -7 16 -8 15
Элементов, меньших последнего, 9
Элементов, больших ср.арифм, 5