Задайте массив из 10 элементов с помощью датчика случайных чисел. Найдите сумму четных элементов. Выведите на экран исходный массив и полученную сумму.

Например, на языке Pascal это можно сделать следующим образом:

pascal




program SumEvenElements;
var
  a: array[1..10] of integer;
  i, sum: integer;
begin
  Randomize;
  
  sum := 0;
  { Заполнение массива случайными числами }
  for i := 1 to 10 do
    a[i] := Random(100);
  { Вывод исходного массива и подсчет суммы четных элементов }
  writeln('Исходный массив:');
  for i := 1 to 10 do
  begin
    write(a[i], ' ');
    
    if a[i] mod 2 = 0 then
      sum := sum + a[i];
  end;
  writeln;
  writeln('Сумма четных элементов: ', sum);
  readln;
end.

Программа сначала создает массив из 10 элементов и заполняет его случайными числами от 0 до 99 с помощью датчика случайных чисел Random. Затем она перебирает все элементы массива, выводит их на экран и проверяет, является ли каждый элемент четным. Если число делится на 2 без остатка, оно добавляется к переменной sum.

Например, при одном из запусков программа может вывести:

Исходный массив:
12 35 48 7 20 91 6 14 55 30
Сумма четных элементов: 130

Таким образом, получаем исходный массив и сумму всех его четных элементов.