Инициализировать массив а из 20 элементов на отрезке [20; 70] и вывести его на экран. найти сумму четных значений элементов массива количество значений кратных 5
// PascalABC.NET 3.3, сборка 1579 от 18.11.2017 // Внимание! Если программа не работает, обновите версию!
begin var a:=ArrRandom(20,20,70); a.Println; Writeln('Sчет= ',a.Where(t->t.IsEven).Sum); Writeln('Элементов, кратных 5- ',a.Where(t->t mod 5=0).Count) end.
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(20,20,70); a.Println;
Writeln('Sчет= ',a.Where(t->t.IsEven).Sum);
Writeln('Элементов, кратных 5- ',a.Where(t->t mod 5=0).Count)
end.
Пример
55 26 45 65 59 27 39 26 42 26 30 42 64 22 55 25 27 40 43 40
Sчет= 358
Элементов, кратных 5- 8