Дан массив D из 10 элементов заполняется с клавиатуры найти сумму элементов кратных трем
Спасибо!

4 за четверть

какоц ответ

там у тебя должна быть кнопка лучший ответ

где то я 1 раз тут

а я редко вопросы задаю, поэтому забыл(

program sum;var arr:array[1..10] of integer;res,i:integer;beginfor i:= 1 to 10 do readln(arr[i]);for i:= 1 to 10 doif arr[i] mod 3 = 0 then res:=res+arr[i];write(res);end.