Найти заданную сумму положительных элементов,сумму четных и суммы первых пяти.
НУЖЕН КОД ДЛЯ ПОСКАЛИ!Помогите пожалуйста.
Ответы
Ответ дал:
0
begin
var arr := arrRandom(10, -10, 10);
write('Исходный массив: ');
foreach var e in arr do write(e : 4);
writeln();
writeln('Сумма положительных элементов: ',
arr.Where(e -> e >= 0).Sum(e -> e));
writeln('Сумма чётных элементов: ',
arr.Where(e -> e mod 2 = 0).Sum(e -> e));
writeln('Сумма первых 5 элементов: ',
arr.Take(5).Sum(e -> e));
end.
var arr := arrRandom(10, -10, 10);
write('Исходный массив: ');
foreach var e in arr do write(e : 4);
writeln();
writeln('Сумма положительных элементов: ',
arr.Where(e -> e >= 0).Sum(e -> e));
writeln('Сумма чётных элементов: ',
arr.Where(e -> e mod 2 = 0).Sum(e -> e));
writeln('Сумма первых 5 элементов: ',
arr.Take(5).Sum(e -> e));
end.
Вас заинтересует
1 год назад
1 год назад
5 лет назад
5 лет назад
8 лет назад
8 лет назад
9 лет назад
9 лет назад