Дан массив одномерный(30 элементов), вычислить сумму элементов, найти максимальное,...

Question

Дан массив одномерный(30 элементов), вычислить сумму элементов, найти максимальное, вывести те элементы, которые делятся на 13
Pascal
заранее огромное спасибо

Answer 1

// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
  var a:=ArrRandom(30,1,100); a.Println;
  Writeln('S=',a.Sum,', max=',a.Max);
  Write('Кратные 13: '); a.Where(n->n mod 13=0).Println
end.

Тестовое решение:
91 45 76 84 16 23 33 56 70 99 9 56 18 75 48 49 22 90 27 52 94 85 42 45 87 7 78 90 40 5
S=1612, max=99
Кратные 13: 91 52 78