Написать программу которая задаёт массив случайных чисел из 20 элементов от 0 до 25 и просчитывает сумму четных значений элементов

Question

Информатика

Спуд

30 января, 14:22

Написать программу которая задаёт массив случайных чисел из 20 элементов от 0 до 25 и просчитывает сумму четных значений элементов

+2

Ответы (1)

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

Гера · Answer 1

Var a: array[1 ... 20] of Integer;

i, n, sum: Integer;

begin

for i:=1 to 20 do

begin

n:=random (25) ;

a[i]:=n;

writeln (i,' число: ', n) ;

end;

for i:=1 to 20 do

begin

if a[i] mod 2=0 then Inc (sum, a[i]) ;

end;

writeln (sum) ;

end.