Заполните целочисленный массив псевдослучайными числами от -5 до 55 1) Найти максимальный счетный элемент и указать порядковый н
Заполните целочисленный массив псевдослучайными числами от -5 до 55 1) Найти максимальный счетный элемент и указать порядковый номер 2) Найти все элементы кратные 3-ём и вывести их сумму 3) Определить количество отрицательных элементов в массиве
<em>// PascalABC.NET 3.3, сборка 1600 от 23.12.2017</em> <em>// Внимание! Если программа не работает, обновите версию!</em>
begin var a:=ArrRandom(ReadInteger('n='),-5,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.