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

Answer 2

Программа содержит несколько ошибок. Вот исправленный код:

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]; ind:=1; for i:=2 to 10 do begin if (min > mas[i]) then begin min:=mas[i]; ind:=i; end; end; write('Минимальный элемент массива: ', min, ' находится на позиции: ', ind); End.

Теперь программа должна корректно определять минимальный элемент массива и его позицию.