В заданном одномерном массиве найти наименьшее из нечётных чисел, найти ошибку - Pascal

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

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

Условие В заданном одномерном массиве N<=40 найти наименьшее из нечётных чисел . Вот моя программа ,но она не правильно работает.Помогите если не сложно)
program lis;
var
  i, x, y: integer;s: array [1..40] of integer;
  min: real;
 
begin
  for i := 1 to 10 do
    read(s[i]);
  for i := 1 to 10 do 
    if s[i] mod 2 = 0 then
     
  begin
    
      min := s[1];
    if s[i] < min then
      min := s[i];
    writeln('наименьшее нечётное число', ' ',min);
  end;

end.

Решение задачи: «В заданном одномерном массиве найти наименьшее из нечётных чисел, найти ошибку»

textual
Листинг программы
const n=40;
var s: array [1..n] of integer;
    i,k,min: integer;
begin
randomize;
k:=0;
for i := 1 to n do
 begin
  s[i]:=-10+random(50);
  write(s[i]:4);
  if odd(s[i]) then
   begin
    if k=0 then
     begin
      min:=s[i];
      k:=1;
     end
    else if s[i]<min then min:=s[i];
   end;
  end;
writeln;
if k=0 then write('В массиве нет нечетных элементов')
else write('Минимальный нечетный=',min);
end.

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

  1. Объявляется константа n со значением 40.
  2. Объявляется массив s целых чисел от 1 до n.
  3. Объявляются переменные i, k и min с целочисленным типом.
  4. Инициализируется генератор случайных чисел.
  5. Устанавливается начальное значение переменной k как 0.
  6. В цикле от 1 до n заполняется массив s случайными числами в диапазоне от -10 до 40 и выводятся на экран.
  7. Проверяется каждый элемент массива на нечетность.
  8. Если нечетное число встречается в массиве:
    • Если k равно 0, то текущий элемент становится минимальным: min принимает значение текущего элемента, а k становится 1.
    • Иначе, если текущий элемент меньше min, min принимает значение текущего элемента.
  9. После завершения цикла проверяется значение k.
  10. Если k равно 0, выводится сообщение В массиве нет нечетных элементов.
  11. Иначе выводится сообщение Минимальный нечетный=минимальное_нечетное_число. Итак, в данном коде находится минимальное нечётное число в заданном массиве чисел.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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