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

А где количество четных?

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

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.

Я Вашу программу принял формально, хотя Вы фактически нарушили условие задания. Расширение .Println превратит массив, созданный вызовом ArrRandom, в последовательность типа IEnumerable<integer>, которая вовсе не является массивом. А по условию нужно заполнить МАССИВ случайными числами.

// 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= 1747 35 50 48 27 49 34 41 44 25 37 31 35 31 41 50 32Четных чисел- 6, их сумма равна 258

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.