сервис вопросов и ответовРЕБЯТА ПОМОГИТЕ!!! Заполнить массив случайными числами из промежутка (1-100) и определить в массиве C[1..30]кол-во чисел
10-11 класс|
|
кратным 3
жека04
20 мая 2015 г., 23:57:19 (8 лет назад)
Demidov110990
21 мая 2015 г., 1:22:31 (8 лет назад)
Program Program1;
Var
c:array [1..30] of integer;
i,k:integer;
begin
randomize;
for i:=1 to 30 do
c[i]:=random(100)+1;
k:=0;
for i:=1 to 30 do
if c[i] mod 3 = 0 then inc(k);
Writeln('Чисел кратных трем: ',k);
end.
Ответить
Другие вопросы из категории
Даны действительные положительные числа а, b, с, х, у. Выяснить, пройдет ли кирпич с ребрами а, b, с в прямоугольное отверстие со сторонами х и у.
Просовывать кирпич в отверстие разрешается только так, чтобы каждое из его ребер было параллельно или перпендикулярно каждой из сторон отверстия.
Помогите, пожалуйста!
Нужна информация о выборе комплектации
компьютера. Основные положения и особенности.
Читайте также
проверьте пожалуйста программу!!!
1. Заполнить массив случайные числами из промежутка [10;20]
2. Найти максимальный и минимальный элементы в этом массиве
3. Обменять первый максимальный и последний минимальный
проверьте пожалуйста программу!!!
1. Заполнить массив случайные числами из промежутка [10;20]
2. Найти максимальный и минимальный элементы в этом массиве
3. Обменять первый максимальный и последний минимальный
Вы находитесь на странице вопроса "РЕБЯТА ПОМОГИТЕ!!! Заполнить массив случайными числами из промежутка (1-100) и определить в массиве C[1..30]кол-во чисел", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.