Найти максимальный элемент массива и поменять его местами с первым элементом - Turbo Pascal (35316)

Формулировка задачи:

В качестве условия задачи берется задание из 5 лабораторной работы, но работать не с одним массивом, а с двумя А1 и А2. В основной программе предусмотреть вызовы подпрограмм к обоим массивам. вот 5 лаб работа "Дан массив целых чисел а1,…, аn. Найти максимальный элемент массива и поменять его ме-стами с первым элементом." Он сделан вот так:
Uses CRT;
Const n=5;
var a:array[1..n] of integer;
    i,index,buf,max:integer;
begin
     ClrScr;
     for i:=1 to n do
     begin
     a[i]:=Random(21);
     write(' a[',i,']=',a[i]);
     end;
     max:=a[1];
     index:=1;
     for i:=1 to n do
         begin
              if a[i]>max then
                 begin
                      max:=a[i];              //Поиск максимального эл.
                      index:=i;               //Его индекс
                 end
         end;
     writeln('');
     write('Max=',max,' Index=',index);
     buf:=a[1];                                  //Замена первого элемента,с тем,откуда мы его взяли
     a[1]:=a[index];
     a[index]:=buf;
     writeln('');
     for i:=1 to n do write(' a[',i,']=',a[i]);      //Вывод
end.
как 6 сделать не знаю, помогите пожалуйста.

Код к задаче: «Найти максимальный элемент массива и поменять его местами с первым элементом - Turbo Pascal (35316)»

textual
Uses CRT;
Const n=5;
Type mas=array[1..n] of integer;
var a1,a2:mas;
    i:integer;
Procedure P(Var A:mas;n:byte);
Var i,index,buf,max:integer;
Begin
    max:=a[1];
     index:=1;
     for i:=1 to n do
         begin
              if a[i]>max then
                 begin
                      max:=a[i];              //Поиск максимального эл.
                      index:=i;               //Его индекс
                 end
         end;
     writeln('');
     write('Max=',max,' Index=',index);
     buf:=a[1];                                  //Замена первого элемента,с тем,откуда мы его взяли
     a[1]:=a[index];
     a[index]:=buf;
End;
begin
     ClrScr;
     writeln('Массив A1');
     for i:=1 to n do
     begin
     a1[i]:=Random(21);
     write(' a1[',i,']=',a1[i]);
     end;
     P(A1,n);
     writeln;
     writeln('Преобразованный массив A1');
     for i:=1 to n do write(' a1[',i,']=',a1[i]);      //Вывод
     writeln;
     writeln('Массив A2');
     for i:=1 to n do
     begin
     a2[i]:=Random(21);
     write(' a2[',i,']=',a2[i]);
     end;
     P(A2,n);
     writeln;
     writeln('Преобразованный массив A2');
     for i:=1 to n do write(' a2[',i,']=',a2[i]);      //Вывод
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

7   голосов, оценка 4.000 из 5


СДЕЛАЙТЕ РЕПОСТ
Похожие ответы