Дан массив из 20 чисел заданных произвольным образом. Вычислите сумму тех элементов которые кратны 3

Question

Информатика

Настасия

17 марта, 04:16

Дан массив из 20 чисел заданных произвольным образом. Вычислите сумму тех элементов которые кратны 3

+1

Ответы (1)

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

Сусанна · Answer 1

Var ar:array[1 ... 20] of integer;

i, k:integer;

begin;

randomize;

writeln ('Array:') ;

for i:=1 to 20 do

begin;

ar[i]:=random (100) ;

writeln (ar[i]) ;

if ar[i] mod 3=0 then k:=k+ar[i];

end;

writeln ('Result:', k) ;

end.