сервис вопросов и ответовДан массив L(15), определить количество и сумму чисел, кратных числу 3. Вывести результат и массив L.
1-4 класс|
|
Ребятушки, пишите те, кто реально может помочь. Очень прошу)))
это ТурбоПаскаль
Lerkin13
28 авг. 2014 г., 5:18:40 (9 лет назад)
Maraksiya
28 авг. 2014 г., 7:35:57 (9 лет назад)
var i,kol,sum:longint;
l:array[1..15] of longint;
begin
for i:=1 to 15 do
begin
read(m[i]);
if m[i] mod 3 = 0 then
begin
inc(kol);
sum:=sum+m[i];
end;
end;
writeln(kol,' ',sum);
for i:=1 to 15 do
write(m[i],' ');
end.
Ответить
Другие вопросы из категории
“Перетворити” ЖАБУ на козу, змінюючи у слові одну літеру так, щоб утворювалося нове слово. Складіть алгоритм
1. Замінити_____ літеру слова на літеру____.
2. ____________________________________.
3. ____________________________________.
4. ____________________________________.
Читайте также
Как-то раз, придя домой со школы, Света обнаружила записку от мамы, в которой она просила сделать салат. Света знала, что салат – это смесь двух или более
ингредиентов, поэтому ей не составило труда выполнить мамину просьбу.Но Света хочет стать математиком, поэтому, для тренировки, решила посчитать, сколько различных салатов она сможет сделать из имеющихся продуктов (майонез, огурцы, помидоры). После небольших расчетов она получила ответ: 4.Зная, что вы любите интересные задачки, и хотите стать программистами, Света попросила вас написать программу, которая определяет количество различных салатов для произвольного числа ингредиентов.
Вы находитесь на странице вопроса "Дан массив L(15), определить количество и сумму чисел, кратных числу 3. Вывести результат и массив L.", категории "информатика". Данный вопрос относится к разделу "1-4" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.