Question

Program pr; var mas: array[1..10] of integer; i,min,ind: integer; begin randomize; for i: =1 to 10 do begin mas[i]: =random(100) ; write(mas[i], ' '); end; writeln(); min: =mas[1]; for i: =1 to 10 do begin if (min> mas[i]) then end; write('минимальный элемент массива: ',min); end. что не верно? вот : дан одномерный массив а длиной n. определить, на какой позиции нахо-дится минимальный элемент массива.

Answer 1

Program pr;

var
  mas: array[1..10] of integer;
  i, ind: integer;

begin
  randomize;
  for i := 1 to 10 do begin
    mas[i] := Random(100);
    write(mas[i], ' ')
  end;
  writeln();
  ind := 1;
  for i := 2 to 10 do
    if (mas[ind] > mas[i]) then ind := i;
  write('Номер минимального элемента массива: ', ind);
end.

Тестовое решение:
16 79 63 7 7 61 2 92 30 54
Номер минимального элемента массива: 7