написать программу обработки одномерного массива :1 ввести массив с клавиатуры с запросом(а[1]=,a[2]=, и т.д)
найти сумму чётных элементов массива.

const n=(задайте нужное количество элементов массива);var a: array [1..n] of integer;i: byte; sum: integer;beginsum :=0;for i:=1 to n dobeginwrite('a[',i,']= '); readln(a[i]);if a[i] mod 2=0 then sum:=sum+a[i];end;writeln;write(sum);readln;end.