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