Вопрос по информатике:
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. Определить, на какой позиции нахо-дится минимальный элемент массива.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 05.03.2015 18:11
- Информатика
- remove_red_eye 4180
- thumb_up 34
Ответы и объяснения 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
- 06.03.2015 12:42
- thumb_up 1
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.