сервис вопросов и ответовНайти сумму тех чисел. у которых индекс кратен 3 или 5, и посчитать количество остальных . Помогите пожалуйста!!!
5-9 класс|
|
HappyArisha
04 нояб. 2013 г., 17:14:28 (10 лет назад)
Katsoboleva
04 нояб. 2013 г., 18:45:52 (10 лет назад)
var a: array [1..1000] of integer; i, s, n, k: integer;
begin
read(n); {Количество чисел в массиве}
for i := 1 to n do {Считывание массива}
read(a[i]);
s := 0; {Сумма}
k := 0; {Количество остальных}
for i := 1 to n do
if (i mod 3 = 0) or (i mod 5 = 0)
then
s := s + a[i]
else
k := k + 1;
writeln('Sum: ', s);
writeln('Other numbers: ', k);
end.
Ответить
Другие вопросы из категории
Запросите у пользователя курсы доллара и евро на сегодняшний день и имеющуюся у
него рублѐвую сумму, и рассчитайте сколько долларов и сколько евро он может купить
на эти деньги.
Считая что каждый символ кодируется одним байтом определите чему равен информационный объём следующего высказывания Рене Декарта:
Я мыслю,следовательно,существую
1)28 бит 2)272 бита 3) 32 кбайта 4)34 бита
Читайте также
Дан массив из n чисел. Найти сумму тех чисел, у которых нечетный индекс и числа которые кратны 5 или 3.
Помогите пожалуйста!
Даны четыре различных целых числа. Найти сумму тех чисел, которые больше 5.
написать программу в Packalabc.net
1)Вывести на экран квадраты и кубы нечётных целых чисел от 9 до 1.
2)Даны натуральные числа от 1 до 150. Найти сумму тех из них, которые делятся на 5 или на 7.
3)Напечатать те из чисел от 10 до 50, которые делятся на 4, но не делятся на 6
4)Найти произведение нечетных чисел от 10 до 50, кратных 13
кто может сделать в Паскале или просто решить?
С клавиатуры вводятся 100 чисел. Найти сумму тех из них, которые больше 10.
На языке Паскаль. Очень нужно!
Вы находитесь на странице вопроса "Найти сумму тех чисел. у которых индекс кратен 3 или 5, и посчитать количество остальных . Помогите пожалуйста!!!", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.