Вопрос по информатике:
(30 баллов)Добрый вечер, не могу доделать программу по информатике, посмотрите пожалуйста.
Задача: Поменять местами первый элемент и минимальный. Не понимаю,как правильно найти мин.элемент и его индекс, чтобы в дальнейшем выполнить условие задачи. Пожалуйста допишите программу с нахождением мин.элем. и его индекса с последующей перестановкой элементов.
P.S. Пропустил эту тему, поэтому ,если не затруднит, распишите все подробно, буду очень благодарен.
Program solofor;
Var a:array [1..100] of integer;
i,k1,n:integer;
Begin
Write('введите размер массива:');
readln(n);
Writeln('введите исходный массив=');
Write ('введите k1:');
Readln(k1);
for i to n do read(a[i]);
- 18.06.2017 02:02
- Информатика
- remove_red_eye 4822
- thumb_up 39
Ответы и объяснения 1
var
a:array [1..100] of integer;
i,imin,n,t:integer;
begin
Write('введите размер массива:'); Readln(n);
Writeln('введите исходный массив:');
for i:=1 to n do Read(a[i]);
imin:=1;
for i:=2 to n do
if a[i]
t:=a[1]; a[1]:=a[imin]; a[imin]:=t
end;
Writeln('результат:');
for i:=1 to n do Write(a[i],' ');
Writeln
end.
- 19.06.2017 00:43
- thumb_up 16
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.