сервис вопросов и ответовНайти в одномерном массиве А10 количество положительных элементов, кратных трём. Написать программу на языке Паскаль.
10-11 класс|
|
Rozalochk
20 авг. 2016 г., 4:05:58 (7 лет назад)
Nastya03348
20 авг. 2016 г., 6:36:05 (7 лет назад)
var A:array[1..10] of integer;
i,k:integer;
begin
k:=0;
for i:=1 to 10 do
if (a[i]>0) and (a[i] mod 3=0) then k:=k+1;
writeln ('k=',k);
readln;
end.
помоему так)
Ответить
Другие вопросы из категории
Существует метод шифрования –
шифрование с помощью ключа. Ключом является слово "цель". Таким образом, результатом шифрования слова "информация" с помощью этого ключа
и с учётом того, что за исходный алфавит принят русский алфавит из 33 букв,
будет слово "аублзтмуае" (необходимо
сложить номера букв шифруемого слова и ключа, затем взять результат по модулю
33 (т.е. остаток от деления на 33) и сформировать шифрованное слово из букв с
получившимся кодом). Например, при шифровании и н ф о р м а ц и я + ц е л ь ц е л ь ц е получим и + ц, что соответствует 10 + 24 = 34
= 1 и букве а, н + е, что соответствует
15 + 6 = 21 и букве у, и т.д.). Какое
слово было зашифровано, если в результате получено слово "жцхяёй"?
Читайте также
Написать программу на языке Паскаль. Вводятся размер и элементы одномерного массива A(N), состоящего из целых чисел. Подсчитать сумму простых
чисел, оканчивающихся на 3. Результат вывести на экран.
Создайте программу в которой в одномерном массиве осуществляется поиск максимального, минимального элемента, подсчитывается количество отрицательных и
количество положительных элементов.(паскаль)
Составить программу на языке Паскаль: 1)Для массива K из 12 вещественных чисел определить сколько элементов массива меньше 0. 2)В массиве М из 10 целых
чисел найти количество элементов равных 3. 3)В массиве из 8 целых найти номер массива с наибольшим значением. 4)В массиве из 12 целых чисел найти количество и сумму элементов, расположенных до максимального элемента. 5)Для массива из 15 вещественных подсчитать количество элементов массива меньших суммы первого и последнего элементов массива.
Вы находитесь на странице вопроса "Найти в одномерном массиве А10 количество положительных элементов, кратных трём. Написать программу на языке Паскаль.", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.