Question

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

Answer 1

// PascalABC.NET 3.3, сборка 1600 от 23.12.2017
// Внимание! Если программа не работает, обновите версию!

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.

Пример
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