Дан целочисленный массив размера N. Вывести все содержащиеся в данном массиве четные числа.
10-11 класс
|
const n=10;
var a: array[1..n] of integer;
i:integer;
begin
for i:=1 to n do
readln(a[i]);
{массив ввели}
for i:=1 to n do
if (a[i] mod 2 =0) and(a[i]<>0) then writeln(a[i])
end.
Другие вопросы из категории
Язык-Pascal. Помогите пожалуйста!
Читайте также
языков программирования алгоритм,позволяющий найти среднее арифметическое нечетных трехзначных чисел,записанных в этом массиве.если ни одного такого числа нет,нужно вывести сообщение об этом.
2)дан целочисленный массив из 30 элементов.элементы массива могут принимать целые значения от 0 до 100.опишите на русском языке или на одном из языков программирования алгоритм,позволяющий найти и вывести произведение элементов массива,которые имеют четное значение и не оканчиваются на 0.
произведение и количество отрицательных элементов, произведение элементов до
первого отрицательного. Отсортировать массив по возрастанию.
языке или на одном из языков программирования алгоритм, который находит и выводит минимальное трехзначное число, записанное в этом массиве. если таких чисел нет, нужно вывести сообщение «Таких чисел нет».
объяните решение пожалуйста программу не обязательно писать
элементов всех нечетных элементов массива которые делятся на 3
на языке Pascal желательно