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

Question

Информатика

Радомира

23 мая, 10:45

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

+2

Ответы (1)

Знаете ответ на вопрос?

Грета · 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.