10 б
программирование

написать программу, которая в одномерном массиве целых чисел из 10 элементов находит сумму элементов четных по значению и выводит результат на экран.​

var A:array[1..10] of integer;

i,sum:integer;

 begin

writeln('Введите значения массива');

for i:=1 to 10 do  

 readln(A[i]);

 for i:=1 to 10 do

  if A[i] mod 2=0 then sum:=sum+a[i];

    write('ответ= ',sum);

  end.