Program pr; var mas: array[1..10] of integer; i,min,ind: integer; Begin randomize; For...

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

Comments

program pr;var mas: array[1..10] of integer; i,min,ind: integer;Beginrandomize;For i:=1 to 10 doBeginmas[i]:=Random(40)+20 ;write(mas[i], ' ');End;writeln();writeln();min:=mas[1];For i:=1 to 10 doBegin If (min>mas[i]) then Begin min:=mas[i]; ind:=i; End;End;write('Минимальный элемент массива: ',min, ' ,находится на ', ind, ' месте');End.

---

varmas: array[1..10] of integer;i,min,ind: integer;Beginrandomize;For i:=1 to 10 doBeginmas[i]:=Random(100) ;write(mas[i], ' ');End;writeln();min:=mas[1];For i:=1 to 10 doBeginIf (min>mas[i]) then min:=mas[i]End;write('Минимальный элемент массива: ',min);End.

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

Comments

Спасибо )

---

Пожалуйста

---

Подправил. Цикл надо начинать от 2, от 1 не ошибка, но смысла нет.

---

Понял