написать программу в паскале: надо заполнить массив случайными числами в диапазоне от 25 до 50, найти сумму четных чисел и их количество.

sargisxachatry sargisxachatry    2   02.09.2019 17:10    0

Ответы
nikaa10 nikaa10  10.08.2020 08:52
// PascalABC.NET 3.2, сборка 1457 от 29.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),25,50); a.Println;
  var s:=a.Where(x->x.IsEven);
  Writeln('Четных чисел- ',s.Count,', их сумма равна ',s.Sum)
end.

Пример
n= 17
47 35 50 48 27 49 34 41 44 25 37 31 35 31 41 50 32
Четных чисел- 6, их сумма равна 258
ПОКАЗАТЬ ОТВЕТЫ
John009 John009  10.08.2020 08:52
Begin
  var a := arrrandom(readinteger('Введите размер массива:'), 25, 50).println;
  writeln('Кол-во четных чисел:', a.where(x -> x mod 2 = 0).count);
  writeln('Сумма четных чисел:', a.where(x -> x mod 2 = 0).sum);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика