Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 11.08.2015 08:09
- Информатика
- remove_red_eye 16722
- thumb_up 36
Ответы и объяснения 1
vect=array[1..5]of integer;
var
p:vect; i,min,imin:integer;
begin
writeln('Введите массив:');
for i:=1 to 5 do read(p[i]);
readln;
min:=p[i]; imin:=1;
for i:=2 to 5 do
if p[i]<=min then begin min:=p[i]; imin:=i; end;
writeln('min = ',min);
writeln('imin = ',imin);
end.
Пример:
Введите массив:
25 12 30 12 49
min = 12
imin = 4
- 12.08.2015 14:13
- thumb_up 8
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.