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. Определить, на какой позиции нахо-дится минимальный элемент массива.

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