Склавиатуры вводится массив из n элементов (0-100) а) найти максимальный и минимальный б) найти количество < 30 в) найти количество = 100 г) вывести 3 различных лучших результата

199

259

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

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

Makich4

Информатика

4,4(16 оценок)

// pascalabc.net 3.3, сборка 1611 от 06.01.2018 // внимание! если программа не работает, обновите версию! begin var a: =readarrinteger('вводите: ',readinteger('n=')); writeln(', меньших 30: ',a.where(t-> t< 30).count); writeln(', равных 100: ',a.where(t-> t=100).count); write('три различных лучших результата: '); a.distinct.orderbydescending(t-> t).take(3).println end. пример n= 23 вводите: 92 51 93 33 7 60 47 71 24 17 49 35 7 31 6 74 51 86 51 86 100 48 54 , меньших 30: 5 , равных 100: 1 три различных лучших результата: 100 93 92

kirushinad1

Информатика

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

Pascalabc.net 3.3.5, сборка 1660 от 20.04.2018 внимание! если программа не работает, обновите версию! begin var (a,b): =readreal2('введите через пробел два числа'); if sign(a)=sign(b) then writeln('da') else writeln('net') end. пример введите через пробел два числа -345.43 12 net