• Составьте программу, которая заполняет массив a [1...10] случайными целыми числами в диапазоне от 1 до 20 и находит минимальный элемент массива и его индекс

Ответы 2

  • для лучшего понимания не стал сваливать всё в один цикл. minz - минимальное значение, min - индекс
    • Автор:

      jadon
    • 5 лет назад
    • 0
  • Vara:array[1..100] of integer;min, minz, i:integer;Beginrandomize;minz:=30;for i:=1 to 10 do a[i]:=random(20)+1;for i:=1 to 10 do if minz>a[i] then begin minz:=a[i]; min:=i; End;for i:=1 to 10 do Write(a[i],' ');Writeln();Writeln(minz,' ',min);End.
  • Добавить свой ответ

Войти через Google

или

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

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

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