Дан одномерный массив а) найти количество элементов меньших последнего элементов. в) найти количество элементов больших среднего арифметического массива.

143

347

Посмотреть ответы 2

Ответы на вопрос:

Lakensssss

Информатика

4,7(36 оценок)

Pascalabc.net 3.3.5, сборка 1640 от 17.03.2018 внимание! если программа не работает, обновите версию! begin var a: =arrrandom(readinteger('n=',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

ксюшка485456

Информатика

4,5(40 оценок)

//pascal abc.net v3.1 сборка 1172 var n,c,s: integer; begin read(n); while n< > 0 do begin c: =n mod 10; s: =s+c; n: =n div 10; end; writeln(s); end. пример ввода: 123 пример вывода: 6