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

Question

Информатика

Дика

5 октября, 17:21

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

+4

Ответы (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.