Заполните целочисленный массив псевдослучайными числами от -5 до 55 1) найти максимальный счетный элемент и указать порядковый номер 2) найти все элементы кратные 3-ём и вывести их сумму 3) определить количество отрицательных элементов в массиве

235

337

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

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

nurija090675

Информатика

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

// pascalabc.net 3.3, сборка 1600 от 23.12.2017 // внимание! если программа не работает, обновите версию! begin var a: =arrrandom(readinteger('n=',55); a.println; var max: =a.where(t-> t.iseven).max; var imax: =a.indexesof(t-> t=max).firstordefault; writeln('1: a[',imax+1,']=',max); writeln('2: ',a.where(t-> t mod 3=0).sum); writeln('3: ',a.where(t-> t< 0).count); end. пример n= 20 -4 45 4 -5 38 1 42 52 53 17 42 22 3 11 28 5 14 28 35 22 1: a[8]=52 2: 132 3: 2