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.