Дан массив натуральных чисел ?
Дан массив натуральных чисел .
Найти сумму элементов , кратных заданному К.
Найти сумму положительных кратных 7 чисел, меньших 100?
Найти сумму положительных кратных 7 чисел, меньших 100.
С клавиатуры вводится несколько чисел?
С клавиатуры вводится несколько чисел.
Найти сумму чисел кратных 5 и кол - во положительных.
Дано масив а из 15 чисел, найти сумму елементов кратных 4?
Дано масив а из 15 чисел, найти сумму елементов кратных 4.
Напишите программу поиска суммы положительных нечетных чисел, меньших 100 и некратных 3?
Напишите программу поиска суммы положительных нечетных чисел, меньших 100 и некратных 3.
ПОЖАЛУЙСТААААААААА.
Дан целостный ряд чисел от 0 до 1000?
Дан целостный ряд чисел от 0 до 1000.
Найти сумму и колличество чисел, кратных 5 и оканчивающихся на 0.
Найти сумму чисел в массиве кратные 10?
Найти сумму чисел в массиве кратные 10.
Решить задачу на программирование в abc Pascal?
Решить задачу на программирование в abc Pascal.
Дано n чисел.
Найти сумму отрицательных чисел кратных 4.
(x от - 30000 до + 30000).
Найти сумму чисел, кратных 3 от 1 до 100?
Найти сумму чисел, кратных 3 от 1 до 100.
Найти сумму чисел кратных 7 в промежутке от 10 до 99?
Найти сумму чисел кратных 7 в промежутке от 10 до 99.
На этой странице находится вопрос Дано 11 чисел?, относящийся к категории Информатика. По уровню сложности данный вопрос соответствует знаниям учащихся 5 - 9 классов. Здесь вы найдете правильный ответ, сможете обсудить и сверить свой вариант ответа с мнениями пользователями сайта. С помощью автоматического поиска на этой же странице можно найти похожие вопросы и ответы на них в категории Информатика. Если ответы вызывают сомнение, сформулируйте вопрос иначе. Для этого нажмите кнопку вверху.
Program Pr1
var
a : array [1.
11] of integer ;
i, sum : integer ;
begin
sum : = 0 ;
for i : = 1 to 11 do
begin
readln(a[i])
if (a[i] mod 3 = 0) then
sum : = sum + a[i] ;
writeln(sum) ;
sum : = 0 ;
if (a[i] mod 9< ; > ; 0) then
sum : = sum + a[i] ;
writeln(sum) ;
end.