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

Дан массив из 20 чисел заданных произвольным образом. Вычислите сумму тех элементов которые кратны 3
Гость
Ответ(ы) на вопрос:
Гость
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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы