Question

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

Answer 1

Var
i, a, even, odd, min, max : integer;
begin
min := 30000;
max := -1;
for i:= 1 to 5 do
begin
read(a);
if (a mod 2 = 0) then
even:= even + 1
else
begin
odd:= odd + 1;
if (a > max) max := a;
if (a < min) min := a;
end;
end;
writeln('четных ', even);
writeln('нечетных', odd);
if (odd = 0)then
writeln('нечетных чисел нет');
else
writeln('min =' min, ' max = ', max);
end.


что то такое, скорее всего есть синтаксические ошибки, т.к. пишу с телефона, надеюсь смысл поняли и сможете сами написать

Answer 2

Для решения этой задачи находится количество четных и нечетных цифр в последовательности из 5 целых чисел, а также определяется максимальное нечетное и минимальное нечетное число (если они есть). Вот алгоритм на языке Паскаль:

pascalCopy code
program FindEvenOddNumbers;

const
  sequenceSize = 5;

var
  numArray: array[1..sequenceSize] of integer;
  evenCount, oddCount, maxOdd, minOdd, i, num: integer;
  foundOdd: boolean;

begin
  evenCount := 0;
  oddCount := 0;
  foundOdd := False;
  
  writeln('Введите последовательность из ', sequenceSize, ' неотрицательных целых чисел:');
  
  // Вводим последовательность чисел
  for i := 1 to sequenceSize do
  begin
    readln(num);
    numArray[i] := num;
    
    // Подсчитываем количество четных и нечетных чисел
    if num mod 2 = 0 then
      evenCount := evenCount + 1
    else
      oddCount := oddCount + 1;
      
    // Находим максимальное нечетное число
    if (num mod 2 <> 0) and ((not foundOdd) or (num > maxOdd)) then
    begin
      maxOdd := num;
      foundOdd := True;
    end;
    
    // Находим минимальное нечетное число
    if (num mod 2 <> 0) and ((not foundOdd) or (num < minOdd)) then
    begin
      minOdd := num;
      foundOdd := True;
    end;
  end;
  
  // Выводим результаты
  writeln('Количество четных чисел: ', evenCount);
  writeln('Количество нечетных чисел: ', oddCount);
  
  if foundOdd then
  begin
    writeln('Максимальное нечетное число: ', maxOdd);
    writeln('Минимальное нечетное число: ', minOdd);
  end
  else
    writeln('В последовательности нет нечетных чисел.');
  
  readln;
end.

В этом коде переменные evenCount и oddCount хранят количество четных и нечетных чисел соответственно. Переменные maxOdd и minOdd хранят максимальное и минимальное нечетные числа, если такие есть. При обходе последовательности чисел, мы ищем эти числа и подсчитываем количество четных и нечетных чисел. В завершении, выводим результаты на экран.