Дан массив одномерный(30 элементов), вычислить сумму элементов, найти максимальное, вывести те элементы, которые делятся на 13
Pascal
заранее огромное спасибо
// 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
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
