Найти наименьший чётный элемент массива, если такого нет, то вывести первый элемент; подсчитать сумму нечётных элементов - 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.

Объяснение кода листинга программы

  1. Объявляются константы и переменные:
    • n = 10 (размер массива)
    • arr: array [1..n] of integer (массив для хранения чисел)
    • i, j, summ, min: integer (переменные для циклов и результатов)
  2. Инициализируется переменная summ = 0 (сумма нечетных чисел)
  3. Выводится исходный массив, каждое число выводится по 3 символа, нечетные числа добавляются к сумме
  4. Выводится сумма нечетных чисел
  5. Инициализируется переменная j = 0 (для отслеживания наличия четных чисел)
  6. Происходит поиск наименьшего четного числа:
    • Перебираются все элементы массива
    • Если текущий элемент четный и j = 0, то это наименьшее четное число, j увеличивается на 1
    • Если текущий элемент четный и меньше наименьшего четного числа, то обновляется наименьшее четное число
  7. Выводится наименьшее четное число или сообщение о его отсутствии и выводится первый элемент массива
  8. Код завершается

Оцени полезность:

10   голосов , оценка 4.1 из 5
Похожие ответы