• Дан массив из 20 чисел заданных случайным образом. Найти: наименьшее нечетное число и его номер. Вывести на экран исходный массив, наименьший нечетный элемент и его номер.

Ответы 6

  • Программа ругается в for i:=1 to high(A) do, где high неизвестный идентификатор
    • Автор:

      torres69
    • 6 лет назад
    • 0
  • Паскаль какой? Набиралось в PascalABC .NET
  • Pascal ABC
  • Это урезанная версия паскаля. Возможно там нет такой функции которая возвращает самое большое значение в массиве. Т.е. его длину
  • Хорошо
    • Автор:

      nora46
    • 6 лет назад
    • 0
  • program znanija;var A:array[1..20] of integer;    i,k,min,n:integer;beginmin:=1000000000; // прощу прощение за такое ) for i:=1 to 20 do  A[i]:=random(9); // заполняем массив for i:=1 to high(A) do  // находим минимальное нечётное, запоминаем его номерif (A[i] < min) and (A[i] mod 2 <> 0) then begin n:=i; min:=A[i]; end;  for i:=1 to 20 do  write(A[i]:3);   // Выводит весь массив writeln();  // просто перевод на новую строку для красоты writeln('Minimum: ',min,' Ego nomer: ',n); // выдаём минимальное и его номерend.
    • Автор:

      dud0lgb
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years