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

Question

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

Comments

а на каком же языке вам её писать. я на 3-х без проблем напишу.

---

паскаль

---

у меня еше 20мин помогите пожалуйста

Answer 1

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

Comments

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

---

спасибо большое

---

благодаря вам 4

---

а чего не 5?

---

дай лучший ответ плиз

---

4 за четверть

---

какоц ответ

---

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

---

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

---

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