• {Задать массив из 10 случайных чисел в диапазоне [32,96].
    Вывести минимальное число массива и его индекс.}

Ответы 1

  • const n=10;var a:array[1..n] of integer;i,min,k:integer;beginRandomize;for i:=1 to n do begin a[i]:=random(65)+32; write(a[i]:4); end;writeln;min:=a[1];k:=1;for i:=2 to n do  if a[i]<min then begin min:=a[i];k:=i; end;writeln('min=a[',k,']=',min);end.Пример:  50  55  72  95  57  87  64  92  42  49min=a[9]=42
    • Автор:

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

Войти через Google

или

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

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

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