Найти наименьший чётный элемент массива, если такого нет, то вывести первый элемент; подсчитать сумму нечётных элементов - Pascal
Формулировка задачи:
Сделайте так что бы размер массива водился с клавиатуры
Найдите наименьший четный элемент массива. Если такого нет, то выведите первый элемент. И посчитайте сумму нечетных элементов массива
Найдите наименьший четный элемент массива. Если такого нет, то выведите первый элемент. И посчитайте сумму нечетных элементов массива.
Сделайте так что бы размер массива водился с клавиатуры.
как тут к примеру сможете )??
только по моему условию ?
Найдите наименьший четный элемент массива. Если такого нет, то выведите первый элемент. И посчитайте сумму нечетных элементов массива.
и напишите мне программу плиз ))
Решение задачи: «Найти наименьший чётный элемент массива, если такого нет, то вывести первый элемент; подсчитать сумму нечётных элементов»
textual
Листинг программы
const n=10; var arr: array [1..n] of integer; i,j,summ,min: integer; begin summ:=0; writeln('Исходный массив:'); for i:=1 to n do begin arr[i]:=random(100); write(arr[i]:3); if arr[i] mod 2<>0 then summ:=summ+arr[i]; end; writeln; writeln('Сумма нечетных элементов=',summ); j:=0; for i:=1 to n do if arr[i] mod 2=0 then begin if j=0 then begin min:=arr[i]; j:=1; end else if arr[i]<min then min:=arr[i]; end; if j>0 then write('Наименьший четный элемент=',min) else write('Четных элементов нет, первый элемент=',arr[1]); end.
Объяснение кода листинга программы
- Объявляются константы и переменные:
- n = 10 (размер массива)
- arr: array [1..n] of integer (массив для хранения чисел)
- i, j, summ, min: integer (переменные для циклов и результатов)
- Инициализируется переменная summ = 0 (сумма нечетных чисел)
- Выводится исходный массив, каждое число выводится по 3 символа, нечетные числа добавляются к сумме
- Выводится сумма нечетных чисел
- Инициализируется переменная j = 0 (для отслеживания наличия четных чисел)
- Происходит поиск наименьшего четного числа:
- Перебираются все элементы массива
- Если текущий элемент четный и j = 0, то это наименьшее четное число, j увеличивается на 1
- Если текущий элемент четный и меньше наименьшего четного числа, то обновляется наименьшее четное число
- Выводится наименьшее четное число или сообщение о его отсутствии и выводится первый элемент массива
- Код завершается