Информатика, 9 класс, Паскаль авс

Найти сумму всех четных элементов массива из 10 целых чисел, стоящих на четных местах.

Question

Информатика

Сима

23 ноября, 21:56

Информатика, 9 класс, Паскаль авс

Найти сумму всех четных элементов массива из 10 целых чисел, стоящих на четных местах.

+4

Ответы (1)

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

Акулинка · Answer 1

Var

a: array[1 ... 10] of integer;

s, i: integer;

begin

for i:=1 to 10 do

begin

a[i]: = random (50) + 1;

if (a[i] mod 2 = 0) and (i mod 2 = 0) then

s:=s+a[i];

writeln (a[i])

end;

writeln ('Сумма: ', s)

end.

Информатика, 9 класс, Паскаль авсНайти сумму всех четных элементов массива из 10 целых чисел, стоящих на четных местах.

Информатика, 9 класс, Паскаль авс

Найти сумму всех четных элементов массива из 10 целых чисел, стоящих на четных местах.