Aulas
6 год назад
Составьте программу которая заполняет массив а[1..10] случайными целыми числами в диапазоне от 1 до 10 и вычислите сумму элементов массива с чётными значениями
ОТВЕТЫ
Kamo
Jul 23, 2019
// PascalABC.NET 3.2, сборка 1344 от 22.11.2016
// Внимание! В других версиях языка работа не гарантируется!
begin
var a:=ArrRandom(10,1,10); a.Println;
Writeln(S=,a.Where(x-gt;x.IsEven).Sum)
end.
Пример
8 7 5 4 3 8 2 2 6 7
S=30
// Внимание! В других версиях языка работа не гарантируется!
begin
var a:=ArrRandom(10,1,10); a.Println;
Writeln(S=,a.Where(x-gt;x.IsEven).Sum)
end.
Пример
8 7 5 4 3 8 2 2 6 7
S=30
8
