(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]);
dmutallapova
2
20.09.2019 12:10
1
Другие вопросы по теме Информатика
farangizuk
28.10.2020 14:18
danilgrekov20
28.10.2020 14:18
Sezimturatbeko
28.10.2020 14:18
tryfest
18.03.2019 00:30
MaliaCr
18.03.2019 00:40
VeronikaIvanova555
18.03.2019 00:40
Артёмка110
18.03.2019 00:40
664565465
06.09.2020 00:52
Популярные вопросы
- повідомлення про табір мрії. де знаходиться табір. чим ви займаєтеся...
3 - Захар беркут ватажок тухольськоï громади только не так как у всех...
1 - 36.). (72 - (x + 2). 8): 2 = 8; 37.). ((x - 14). 7 + 18): 9 =...
1 - Имеет ли смысл выражение1) -√27; 2) √(-25)²; 3) √√-121; 4) √√84²-85²;...
1 - Каким из даных мяч пролетит больше растояния 1с места 2 с разбега...
3 - Плюси та мінуси тритинного сектора...
2 - Слони вирішили організувати відпочинок на пляжі. Для цього вони...
3 - Укажите, чем выражено подлежащее в предложении. Подойти к брату...
1 - Контрошка по геометрии:) Щедрый, так вот за 40 минут:)...
1 - В словосочетании заря небес изменить тип связи)...
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]<a[imin] then imin:=i;
if imin>1 then begin
t:=a[1]; a[1]:=a[imin]; a[imin]:=t
end;
Writeln('результат:');
for i:=1 to n do Write(a[i],' ');
Writeln
end.