Помогите решить задачу

[нович]

Помогите решить задачу

Дан одномерный массив А[10]. Поменять местами 5-й элемент массива с минимальным. Если обмен не получится, то вывести текст " 5-й элемент массива минимальный". Элементы массива задает пользователь.:tehnari_ru_837:

 

[Vladimir_S]

Ждите экстрасенсов. Они годика через полтора обещали заглянуть. Тогда и узнаем, на каком языке программирования нужно выполнить задание.

 

[нович]

эту задачу решить в Turbo Paskal

 

[Vladimir_S]

эту задачу решить в Turbo Paskal

Ну тогда - так и быть. Хотя обычно с обрыдлыми поисками минимальных/максимальных элементов массивов посылаю... куда подальше. С этим детским садом надо самостоятельно управляться! Ладно, держите:

VAR
 A:Array [1..10] of Byte;
 Min,i,Imin,D:Byte;
BEGIN
 Randomize;
 Writeln('Initial array:');
 Min:=100;
 For i:=1 to 10 do
  begin
   A[i]:=Random(100);
   Write(A[i]:4);
   If A[i]<Min then
    begin
     Min:=A[i];
     Imin:=i;
    end;
  end;
 Writeln;
 Writeln;
 If Imin=5 then
  Writeln('Fifth element is minimal one')
 else
  begin
   Writeln('Changed array:');
   D:=A[5];
   A[5]:=A[Imin];
   A[Imin]:=D;
   For i:=1 to 10 do write(A[i]:4);
  end;
 Readln
END.

 

[нович]

огромное спасибо:tehnari_ru_203: