Program CrazyCoder;

uses crt;

var
  a: array [1..50] of integer;  //Массив из 15 целых чисел
  i,sum: integer;

begin
  randomize;  
  write('Исходный массив:  ');
  for i := 1 to 50 do  {Заполняем массив случайными целыми числами от 1 до 100 и распечатываем его}
  begin
    a[i] := random(100) + 1;
    write(a[i], '  ') ; 
  end; 
  writeln;
  write('Сумма всех четных элементов массива: ');
  for i:= 1 to 50 do
    if a[i] mod 2 = 0 then sum:=sum+a[i];
  writeln(sum);
  readln;
end.