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

var  s, i:integer;  a:array[1..10]of integer;beginfor i:=1 to 10 do  begin  a[i]:=random(10);  write(a[i],' ');  if a[i] mod 2=0 then s:=s+a[i];  end;writeln;writeln('Сумма четных: ',s)end.