задача массив

[veronik0095]

помогите пожалуйста:'( очень нужно решить задачу в паскале:

Дан одномерный целочисленный массив, состоящий из k элементов(5<k<100). Необходимо поменять местами минимальный и максимальный элементы массива.
Входный файл: 4 7 1 23 56 29
Выходный файл: 4 7 56 23 1 29

Заранее благодарна!!!

[VIK_aka_TOR]

Как найти максимальный элемент:
Для этого необходимо использовать метод пузырька (другое название - метод коробочки). В чем он заключается? Проще простого:
Код:
1. Берем первый элемент и кладем его в коробку.
2.Берем следующий элемент и если он больше того, что лежит в коробке - опустошаем коробку и положим туда данный элемент.
3. Идите на шаг 2, пока не закончатся элементы.
4. В коробке - максимальный элемент.

вот только берем две коробочки... и во вторую помещаем номер элемента...
аналогично и с минимальным...

обмен местами... I_max и I_min те самые "коробочки" в которых индексы максимального и минимального элементов мссива...

buf := mas[I_max];
mas[I_max] := mas[I_min];
mas[I_min] := buf;

p.s. справка

[veronik0095]

оооох а бы решение????3й час сижу чушь получается какая-то(

[VIK_aka_TOR]

I_max := 1;
I_min := 1;
for i:=2 to k do
  begin
    if mas[i] > mas[i_max] then
      i_max := i;
    if mas[i] < mas[i_min] then
      i_min := i;
  end;
buf := mas[I_max];
mas[I_max] := mas[I_min];
mas[I_min] := buf;

ввод и вывод сами сделаете...
p.s. пример чтения/записи файла

[veronik0095]

спасиииибочки большое сейчас попробую

[veronik0095]

а так тоже не получается(((((

[VIK_aka_TOR]

Сообщение от veronik0095

а так тоже не получается(((((

в четвертом посте добавил ссылку на пример работы с файлами...
учитесь делать что-либо сами... так намного интереснее...

или же выкладывайте свою "чушь", будем разбираться...
p.s. при оформлении кода используйте кнопку # (решетка)

[veronik0095]

с учителем начинали решать а дальше все
Program massiv;
var k: array [5..100] of integer;
min, max, i: integer;
Begin
randomize;
for i:=5 to 100 do begin
k[i]:=random(30);
writeln('k[',i,']=;k[i]);
readln(k[i]);
end;
max:=5; min:=5;
for i:=6 to 100 do begin
if k[i]<min then min :=k[i];
if k[i]>max then max :=k[i];
end;
i:=k[max];
k[max]:=k[min];
k[min]:=i;
writeln('vvedite k');
end.

[veronik0095]

не поможете??

[VIK_aka_TOR]

а если так?

var
mas: array [1..100] of integer;
k,min, max, i, buf: integer;
Begin
randomize;
writeln('vvedite k');
readln(k);
// первоначальный массив
for i:=1 to k do
  begin
    mas[i]:=random(30);
    writeln('a[',i,']= ',mas[i]);
  end;
  
// ищем минимум и максимум
min := 1;
max := 1;
for i:=2 to k do 
  begin
   if mas[i] < mas[min] then 
      min :=i;
   if mas[i]> mas[max] then 
      max :=i;
  end;
// меняем местами мин и мах 
buf := mas[min];
mas[min] := mas[max];
mas[max] := buf; 
writeln;
// выводим преобразованный массив
for i:=1 to k do
  writeln('a[', i,']=', mas[i]);
readln;  
end.