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

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

Задать свой вопрос
Буртковский Леша
а на каком же языке вам её писать. я на 3-х без проблем напишу.
Арина Тодорова
паскаль
Константин Шарифзянов
у меня еше 20мин помогите пожалуйста
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.
Вася
program mas;var arr:array[1..10] of integer;res,i:integer;beginfor i:= 1 to 10 dobeginreadln(arr[i]);if arr[i] mod 3 = 0 then res:=res+arr[i];end;write(res);end.
Остронина Таисия
спасибо огромное
Dashka Birjusheva
благодаря вам 4
Варвара Сининкина
а чего не 5?
Олеся Иваченкова
дай лучший ответ плиз
Маринка Тетерская
4 за четверть
Светлана Мозизнова
какоц ответ
Пашок Тафель
там у тебя обязана быть кнопка превосходнейший ответ
Геннадий Месхи
где то я 1 раз здесь
Ангелина Потиполова
а я изредка вопросы задаю, потому забыл(
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт