Статистика
Всего в нашей базе более 4 327 056 вопросов и 6 446 096 ответов!

среди сгенерированных случайным образом 20 чисел из отрезка [ 1;1000] подсчитать количество и сумму четных чисел делящихся на 7

10-11 класс

Hatipova444 02 июня 2014 г., 0:30:51 (6 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Nastyaky
02 июня 2014 г., 2:24:48 (6 лет назад)

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. 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Ответить

Другие вопросы из категории

Дiйснi вектори A(a1,a2...,an) та B(b1,b2...,bn) перетворити за

правилом: якщо a(i) та b(i)

Читайте также

Дан массив целых чисел из n

элементов, заполненный случайным образом числами из промежутка [-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



Вы находитесь на странице вопроса "среди сгенерированных случайным образом 20 чисел из отрезка [ 1;1000] подсчитать количество и сумму четных чисел делящихся на 7", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.