сервис вопросов и ответовПрограмма нахождения четных чисел из 10 любых на языке Pascal
10-11 класс|
|
Zahar1111
28 апр. 2015 г., 9:50:08 (9 лет назад)
MaximilianoTorres
28 апр. 2015 г., 10:57:03 (9 лет назад)
Var
mas:array[1..10]of integer;
i:integer;
Begin
write('Введите 10чисел: ');
for i:=1 to 10 do readln(mas[i]);
write('Четными являются: ');
for i:=1 to 10 do if (mas[i] mod 2 = 0) then write(mas[i],' ');
Ответить
Другие вопросы из категории
составьте программу ,которая заполняет массив а[1..8] случайными целыми числами в диапазоне от 1 до 10 и находит количество элементов с чеоными значениями
и произведение элементов с нечетными значениями
Один из часто встречающихся видов списка стек — список, в котором все операции включения и извлечения, сопровождающегося удалением из списка, элементов
выполняются только с одного края. Механизм функционирования стека отражён в его названии «LIFO» (Last In First Out — последним вошёл, первым вышел, подобно патронам в обойме). Следовательно, любой элемент не может быть извлечён и удалён из стека раньше, чем будут извлечены все элементы, помещённые в стек позднее него. Составить программу, реализующую функционирование стека. Стек оформить как массив.
Читайте также
Напишите на языках Pascal и C++ программу, которая генерирует 2 случайных вещественных числа и вычисляет их сумму, разность, произведение и
частное. Напишите на языках Pascal и C++ программу, моделирующую выбор одной из костей домино ( в наборе 28 костей домино, каждая состоит из двух половин, на каждой половине – от 0 до 6 очков). С помощью этой программы ответьте на вопрос: какова вероятность того, что выпадет кость с числом очков, кратным 3
. Написать программу, которая вводит массив из N целых чисел и выводит на экран этот же массив в прямом и обратном порядке. Протестировать программу на
произвольных массивах, состоящих из 1 числа, из 5 чисел, из 10 чисел.
Сделать следущие задачи на языке pascal abc
#2. Ввести В. Если В<10, выдать на печать 2*В. Если В>=10, вычислить и напечатать значения функции y=x²-x+tg(1/B+x) для значений x, изменяющихся от –3 до 1, с шагом 0,1.
#3. Ввести массив целых чисел Х(n). Найти среднее арифметическое значений элементов массива, не принадлежащих интервалу [-2;2]. Если среднее арифметическое значение>2, заменить значения первого и последнего элементов на 1, в ином случае – на 0. Массив распечатать.
#4. Ввести массив А(n). Найти сумму положительных элементов массива, исключая при этом те элементы, которые кратны трём. Полученной суммой заменить элементы 2-ой половины массива. Массив отпечатать.
1. Составить программу нахождения суммы чисел 5, 10, 15, 20, …50.
2. Найти значения функции у= 5х+х2, при х=50, 49, 48, 47, …, 40.
дан целочисленный массив из 10 элементов все элементы которого целые числа в интервале от - 1000 до 1000. напишите программу которая находит количество
элементов всех нечетных элементов массива которые делятся на 3
на языке Pascal желательно
Вы находитесь на странице вопроса "Программа нахождения четных чисел из 10 любых на языке Pascal", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.