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

Question

Информатика

Ануша

25 октября, 17:07

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

+4

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