Question

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

Answer 1

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

Answer 2

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 3

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

Answer 4

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

Answer 5

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 6

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