Сформировать массив из 12 целых чисел в диапазоне от 10 до 45 и найти сумму чисел кратных 3

Question

Информатика

Петяха

26 ноября, 04:36

Сформировать массив из 12 целых чисел в диапазоне от 10 до 45 и найти сумму чисел кратных 3

+5

Ответы (1)

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

Констанция · Answer 1

Var

i, s:integer;

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

begin

randomize;

s:=0;

for i:=1 to 12 do

begin

a[i]:=Random (35) + 10;

writeln (a[i]) ;

if a[i] mod 3=0

then s:=s+a[i];

end;

writeln (s) ;

end.