Тема: Одномерные массивы.

В паскале в массиве даны 10 целых чисел.

Нужно найти сумму четных чисел.

Question

Информатика

Феликс

28 января, 03:20

Тема: Одномерные массивы.

В паскале в массиве даны 10 целых чисел.

Нужно найти сумму четных чисел.

+1

Ответы (1)

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

Венюра · Answer 1

Var

A: Array[0 ... 9] of Integer;

i, Sm: Integer;

begin

Sm:=0;

for i:=0 to 9 do

A[i]:=Random (300) - 20;

for i:=0 to 9 do

if (A[i] Mod 2 = 0) then

Sm:=Sm + A[i];

WriteLn ('Sum = ', Sm) ;

end.

Тема: Одномерные массивы.В паскале в массиве даны 10 целых чисел.Нужно найти сумму четных чисел.

Тема: Одномерные массивы.

В паскале в массиве даны 10 целых чисел.

Нужно найти сумму четных чисел.