(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]);
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]);
More Questions From This User See All