Напишите программу, которая находит в массиве минимальный и максимальный из чётных положительных элементов.
10-11 класс
|
var a: array[1..100] of integer; i: integer; max: integer; begin randomize; for i := 1 to 15 do a[i] := random(10) - 5; for i := 1 to 15 do if (a[i] > 0) and (a[i] mod 2 = 0) then if a[i] > max then max := a[i]; writeln('Исходный массив: '); for i := 1 to 15 do write(a[i], ' '); writeln; writeln('Максимальный четный элемент в массиве: ', max);end.
Другие вопросы из категории
решений имеет уравнение (АВ)↔(АС) = А(А→С), где А, В, С – логические переменные?
Читайте также
двузначных элементов массива, которые не оканчиваются на 3. №2. Дан массив из 100 элементов. Каждый элемент может принимать целочисленные значения от 1 до 500. Напишите программу, которая позволит найти и вывести минимальное значение среди элементов массива, которые делят максимальное значение элементов массива без остатка.
определяет количество чисел, кратных 4. Программа получает на вход
количество чисел в последовательности, а затем сами числа. В
последовательности всегда имеется число, кратное 4. Количество чисел не
превышает 1000. Введённые числа не превышают 30 000. Программа должна
вывести одно число — количество чисел, кратных 4.
2. Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, кратное 3. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 3. Количество чисел не превышает 1000. Введённые числа не превыша ют 30 000. Программа должна вывести одно число — минимальное число, кратное 3.
подсчитать среднее арифметическое положительных элементов массива, которые кратны первому элементу массива. №2. Дан массив из 40 элементов. Каждый элемент может принимать целочисленные значения от 0 до 200. Напишите программу, которая позволит найти наиболее часто встречающийся элемент массива
Напишите программу, которая вычисляет НОК двух чисел. Используйте функцию.
а)удвоенное значение числа,если число положительное; б)абсолютное значение числа,если число отрицательное.
2)Напишите программу которая анализирует введенное с клавиатуры число на четность и сообщает о результате.