Question

Дан одномерный массив, состоящий из 10 элементов. Значение элементов вводятся с клавиатуры. Значения могут быть как положительные так и отрицательные. Найдите сумму четных положительных элементов. Результат вывести на форму

Answer 1

program ex;
var  a, sum, i: integer;  g: array [1..10] of integer;
begin  sum := 0;  for i := 1 to 10 do   begin    read(a);    g[i] := a;    if (g[i] mod 2 = 0) then      sum := sum + g[i];  end;  write(sum)end.

Answer 2

program ex;

var
a, sum, i: integer;
g: array [1..10] of integer;

begin
sum := 0;
for i := 1 to 10 do
begin
read(a);
g[i] := a;
if (g[i] mod 2 = 0) then
sum := sum + g[i];
end;
write(sum)
end.