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]) th...
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
Не нашли ответ?
Похожие вопросы