Срочно очень Прошу. Написать программу в Паскале: Надо заполнить массив случайными...

Question

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

Comments

Размер массива тоже задается случайными числами?

Answer 1

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.

Comments

"Слишком поздно, чтобы изменить ответ
СОХРАНИТЬ ОТВЕТ" <- :(

---

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.

Answer 2

// 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