Сформулировать массив из N случайных чисел от 0 до 86. Найти сумму чисел кратных 3

Question

Информатика

Давыд

7 декабря, 22:26

Сформулировать массив из N случайных чисел от 0 до 86. Найти сумму чисел кратных 3

+2

Ответы (1)

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

Леся · Answer 1

Const n=10;

var a:array[1 ... n] of integer;

sum, i:integer;

begin

randomize;

sum:=0;

for i:=1 to n do

begin

a[i]:=random (86) ;

write (a[i],' ') ;

if (a[i] mod 3 = 0) and (a[i]0) then sum:=sum+a[i];

end;

writeln;

writeln (sum)

end.