среди сгенерированных случайным образом 20 чисел из отрезка [ 1;1000] подсчитать количество и сумму четных чисел делящихся на 7
10-11 класс
|
var
a:array[1..20] of integer;
i,sum,kol:ineger;
begin
for i:=1 to 20 do
begin
a[i]:=random(1001);
if ((a[i] mod 2)=0) and ((a[i] mod 7)=0) then
begin
sum:=sum+a[i];
kol:=kol+1;
end;
end;
write(sum,+' '+ kol);
end.
Другие вопросы из категории
правилом: якщо a(i) та b(i)
Пожалуйста помогите!!!
от границы - большие или равные B. программный код на Pascal
Читайте также
элементов, заполненный случайным образом числами из промежутка [-10,60]. Удалить из него все элементы, в
которых последняя цифра нечетная, а само число кратно 3.
Помогите пожалуйста решить в C# (Си шарп)
1)Для всех чисел от -5 до 60 найти и вывести их кубы.
2)Найдите сумму нечетных чисел 1 до 100.
3)Подсчитать количество всех четных чисел от -20 до 20
4)Для всех четных чисел от 10 до 78 найти и вывести значение функции y=5x^3-6x
Помогите!
уникальных чисел в массиве....заранее спасибо...
1) Найти сумму нечетных чисел в интервале от 1 до 20
2) Найти сумму четных чисел в интервале от 1 до 20