Дан массив из 50 целых чисел. Найти сумму четных чисел. Написать программу на Паскале.

Я бы сделал это так.

Идея решения

1. Объявляем массив из 50 целых чисел.

2. Считываем все элементы массива с клавиатуры.

3. Заводим переменную sum для суммы чётных чисел и обнуляем её.

4. В цикле просматриваем массив:

   • если текущий элемент чётный (делится на 2 без остатка), прибавляем его к sum.

5. В конце выводим полученную сумму.

Чётность проверяется условием:

pascal
Копировать код
if a[i] mod 2 = 0 then

где mod — это операция взятия остатка от деления.

Вариант программы на Паскале

pascal
Копировать код
program SumEvenNumbers;
var
  a: array[1..50] of integer;
  i: integer;
  sum: integer;
begin
  sum := 0;  { инициализируем сумму }
  writeln('Введите 50 целых чисел:');
  for i := 1 to 50 do
  begin
    read(a[i]);  { считываем элемент массива }
  end;
  { находим сумму четных чисел }
  for i := 1 to 50 do
  begin
    if a[i] mod 2 = 0 then
      sum := sum + a[i];
  end;
  writeln('Сумма четных чисел в массиве = ', sum);
end.

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