Найти наименьшее из четных чисел, входящих в последовательность A[1]-1, A[1], A[2], ..., A[n] и количество нечетных чисел - Pascal

Узнай цену своей работы

Формулировка задачи:

Дан целочисленный массив A(N) Найти наименьшее из четных чисел, входящих в последовательность A[1]-1, A[1], A[2], ..., A[n] и количество нечетных чисел.

Решение задачи: «Найти наименьшее из четных чисел, входящих в последовательность A[1]-1, A[1], A[2], ..., A[n] и количество нечетных чисел»

textual
Листинг программы
var
 mas:array [1..100] of longint;
 min,kol,i,n:longint;
begin
 readln(n);
 for i:=1 to n do
  readln(mas[i]);{записываем в массив}
 if(mas[1] mod 2 = 0) then{ставим минимум четных}
 begin
  min:=mas[1];
  kol:=1;
 end
 else
 begin
  min:=mas[1]-1;
  kol:=1;
 end;
 for i:=2 to n do
 begin
  if(mas[i] mod 2=0) then{если четное, то проверим, меньше ли оно чем текущий минимум, иначе увеличиваем счетчик}
  begin
   if(mas[i]<min) then
    min:=mas[i];
  end
  else
   kol:=kol+1;
 end;
 writeln('минимум четных ',min,' количество нечетных ',kol);
end.

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

В данном коде используется язык программирования Pascal. Он предназначен для решения задач, связанных с обработкой данных. Переменные в коде имеют следующие значения:

  • mas: массив, в котором хранятся числа.
  • min: переменная, в которой будет храниться минимальное значение из четных чисел.
  • kol: переменная, в которой будет храниться количество нечетных чисел.
  • i: переменная, с помощью которой происходит итерация по числам в массиве.
  • n: количество чисел в массиве. Код начинается с объявления переменных и массива. Затем происходит чтение количества чисел из стандартного ввода. Далее происходит итерация по числам в массиве. Если число четное, то оно сравнивается с текущим минимальным значением. Если число меньше текущего минимального значения, то оно становится новым минимальным значением. Если число нечетное, то увеличивается счетчик нечетных чисел. После завершения итерации выводится результат - минимальное значение из четных чисел и количество нечетных чисел.

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

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