Дан массив из 10 вещественных чисел. Найти min элемент и его номер
Нет комментариев
Ответы
Гость uses crt;
var mas: array[1..10] of integer;
i,min,ind: integer;
Begin
randomize;
For i:=1 to 10 do
Begin
mas[i]:=Random(40)+20 ;
write(mas[i], ' ');
End;
writeln();
writeln();
min:=mas[1];
For i:=1 to 10 do
Begin
If (min>mas[i]) then
Begin
min:=mas[i];
ind:=i;
End;
End;
write('Минимальный элемент массива: ',min, ' ,находится на ', ind, ' месте');End.
Нет комментариев
Похожие вопросы
Информатика
Где в поседневной жизни вы встречаете таблицы...
Информатика
Помогите пожалуйста с практической!!!...
Список предметов
