Напишите пожалуйста программу, которая находит максимальный и минимальный из элементов массива с четными положительными значениями?

Информатика | 5 - 9 классы

Напишите пожалуйста программу, которая находит максимальный и минимальный из элементов массива с четными положительными значениями.

Если в массиве нет элементов с четными положительными значениями, нужно вывести сообщение об этом.

С объяснением!

Ответить на вопрос
Ответы (1)
Fuchubner 1 мар. 2020 г., 21:25:52

Const n = 10 ; / / В константе n указываем количество элементов в массиве

var a : array[1.

N]of integer ;

i, s, max, min : integer ;

begin

write('Массив : ') ; / / Вывод на экран слова "Массив : "

for i : = 1 to n do / / Цикл с параметром для последовательной обработки массива

begin

a[i] : = random(21) - 10 ; / / Заполнение массива случайными числами из промежутка [ - 10, 10]

if (a[i]> ; 0){ / / Проверяем положительный элемент или нет} and (a[i] mod 2 = 0){ / / Проверяем чётный элемент или нет} then s : = s + 1 ; / / В переменной s будет считаться количество чётных положительных элементов при выполнении, указанных условий

write(a[i], ' ') / / Вывод на экран массива в строку

end ;

writeln ; / / Переход на новыю строку

if s = 0 then write('Чётных положительных элементов в массиве нет') / / Вывод на экран сообщения "Чётных положительных элементов в массиве нет" и завершение программы

else / / Продолжении программы при нахождении хотя бы 1 - го чётного положительного элемента

begin

max : = 2 ; / / Т.

К. 2 минимальное чётное положительное число, то присваиваем это значение переменной max

for i : = 1 to n do / / Поиск max элемента

if (a[i]> ; 0) and (a[i] mod 2 = 0) and (a[i]> ; max){ / / Проверяем больше текущий элемент max или нет} then max : = a[i] ; / / Присваиваем переменной max значение текущего элемента при выполнении, указанных условий

min : = max ; / / Т.

К. max значение элемента массива уже найдено, то переменной min присваиваем значение переменной max

for i : = 1 to n do / / Поиск min элемента

if (a[i]> ; 0) and (a[i] mod 2 = 0) and (a[i]< ; min){ / / Проверяем меньше текущий элемент min или нет} then min : = a[i] ; / / Присваиваем переменной min значение текущего элемента при выполнении, указанных условий

if max = min then write ('Максимальным и минимальным чётным положительным элементом является один и тот же элемент : ', max) / / Вывод на экран результатов

else

begin

writeLn('Максимальный чётный положительный элемент : ', max) ; / / Вывод на экран результатов

write('Минимальный чётный положительный элемент : ', min) / / Вывод на экран результатов

end

end

end.

Een929 11 июн. 2020 г., 12:23:29 | 10 - 11 классы

Паскаль?

Паскаль.

Вычислить разность максимального среди элементов, имеющих четные значения, и максимального среди элементов, имеющих нечетные значения, в заданном целочисленном массиве из 30 положительных элементов (в предположении, что в массиве есть и четные, и нечетные элементы).

Zenks 10 мар. 2020 г., 02:56:58 | 10 - 11 классы

Найди все четные по значению элементы массива?

Найди все четные по значению элементы массива.

Вывести на экран значение элементов и их индекс.

Ввод элементов массива с клавиатуры.

Программа пишется на языке Паскаль.

Tinakuc1 3 февр. 2020 г., 00:02:50 | 10 - 11 классы

Введите элементы массива а[1?

Введите элементы массива а[1.

10] с клавиатуры и вычислите количество элементов с четными положительными значениями.

Dionna 1 окт. 2020 г., 07:45:26 | 10 - 11 классы

Составьте программу ввода с клавиатуры массива целых чисел a[1?

Составьте программу ввода с клавиатуры массива целых чисел a[1.

10] и вывода на экран элементов массива с четными положительными значениями.

TATATATAS 1 июл. 2020 г., 05:45:42 | 10 - 11 классы

Заданы два двумерных целочислительных массива ?

Заданы два двумерных целочислительных массива .

Найти максимальный элемент в первом массиве и если он положительный чётный уменьшить его величину все положительные четные элементы второго массива .

Таблица программа блок схемах.

Помогите пожалуйста!

Petrusina42 5 июл. 2020 г., 19:55:08 | 10 - 11 классы

Объявить массив размерностью N?

Объявить массив размерностью N.

Заполнить элементы массива.

Распечатать значения элементов массива.

Вывести значения в обратном порядке.

Вывести значения элементов с четными индексами.

Diana98n 10 июн. 2020 г., 21:33:13 | 10 - 11 классы

В одномерном массиве А(10) найти максимальный элемент, вывести его значение и индекс?

В одномерном массиве А(10) найти максимальный элемент, вывести его значение и индекс.

Заменить все четные элементы значением максимального элемента.

Полученный массив вывести на экран.

Coolalena200 17 окт. 2020 г., 17:57:45 | 10 - 11 классы

Помогите решить задачи в Pascal 1?

Помогите решить задачи в Pascal 1.

Поменять местами максимальный и минимальный элемент массива.

2. Вывести четные числа среди положительных элементов 3.

Напечатать сумму и номера положительных элементов после первого нулевого элемента.

Polinok290 8 янв. 2020 г., 04:29:13 | 10 - 11 классы

Напишите программу которая находит максимальный и минимальный из чётных пложителных элементов массива?

Напишите программу которая находит максимальный и минимальный из чётных пложителных элементов массива.

Если в массиве нет чётных положительных элементов, нужно вывести сообщение об этом.

По информатика с ответам.

666Виктория666 8 сент. 2020 г., 14:33:42 | 10 - 11 классы

В целочисленных массива X(N) найти номера и значение, максимального четного и минимально нечетного элементов массива?

В целочисленных массива X(N) найти номера и значение, максимального четного и минимально нечетного элементов массива.

На языке СИ .

На этой странице сайта, в категории Информатика размещен ответ на вопрос Напишите пожалуйста программу, которая находит максимальный и минимальный из элементов массива с четными положительными значениями?. По уровню сложности вопрос рассчитан на учащихся 5 - 9 классов. Чтобы получить дополнительную информацию по интересующей теме, воспользуйтесь автоматическим поиском в этой же категории, чтобы ознакомиться с ответами на похожие вопросы. В верхней части страницы расположена кнопка, с помощью которой можно сформулировать новый вопрос, который наиболее полно отвечает критериям поиска. Удобный интерфейс позволяет обсудить интересующую тему с посетителями в комментариях.