Сформулировать массив из N случайных чисел от 0 до 86. Найти сумму чисел кратных 3
10-11 класс
|
const n=10;
var a:array[1..n] of integer;
sum, i:integer;
begin
randomize;
sum:=0;
for i:=1 to n do
begin
a[i]:=random(86);
write(a[i],' ');
if (a[i] mod 3 =0) and(a[i]<>0) then sum:=sum+a[i];
end;
writeln;
writeln(sum)
end.
Другие вопросы из категории
пикселей имеет 256 различных оттенков.сколько памяти она займет в КБ?
Читайте также
2.Вывести на экран 10 строк, содержащие символ *, причем количество * в каждой строке должно быть равно номеру строки.
3.Пользователем вводится 2 целых числа. Вывести на экран сумму положительных четных чисел, находящихся в границах диапазона, указанного пользователем.
4. В результате работы программы формируется массив, состоящий из 10 элементов и заполненный случайными числами от 0 до 100. Вывести на экран этот же массив в порядке возрастания.
5.Вводится строка, содержащая буквы и цифры разного регистра (т.е. строчные и прописные буквы). В результате работы программы на экран выводится строка следующего вида: цифры в порядке возрастания, строчные буквы по алфавиту, прописные буквы по алфавиту.
B<=100).
Выходнфе данные: вывести сумму всех целых чисел от А до В включительно.
Можно, пожалуйста, с объяснением.
2)Написать программу определяющую сумму всех нечетных чисел от 1 до 99