Дан массив одномерный(30 элементов), вычислить сумму элементов, найти максимальное, вывести те элементы, которые делятся на 13 Pascalзаранее огромное спасибо
Дан массив одномерный(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
Не нашли ответ?
Похожие вопросы