Дано два одномерных массива A и B. Заменить местами максимальные элементы массивов A и B....

Question

Дано два одномерных массива A и B. Заменить местами максимальные элементы массивов A и B. Использовать процедуру нахождения максимального элемента массива. Преобразовать эту программу для двумерного массива.

Comments

"Преобразовать эту программу для двумерного массива. " - непонятно, что имеется в виду. Для двухмерного массива нужно все писать иначе.

---

язык указывай

---

В любом случае это не Джаваскрипт)))

---

А, тип надо написать два кода, для одномерных и для двумерных.

---

Да это условие некорректное, как и прошлый раз. Нельзя это "преобразовать", надо с нуля писать для двухмерного.

---

Не может процедура одинаково ни вызываться, ни работать для массивов разного ранга.

---

Вообще забыл про процедуру. Написано же "преобразовать", следовательно изменить процедуру.

---

Написано преобразовать именно программу, а не программную единицу)

Answer 1

//Pascal ABC.NET v3.1 сборка 1172

//Одномерные
Const
 n=10;
 
Type
 ty=array[1..n] of integer;

Var
 ara,arb:ty;
 i,j,max,maxia,maxib:integer;
 
procedure maxs(ar:ty;var max,maxi:integer);
 Var
  i:integer;
 begin
  for i:=1 to n do
   if max      begin
       maxi:=i;
       max:=ar[i];
      end;
 end;

begin
 randomize;
 max:=-1;
  writeln('Array A:');
   for i:=1 to n do
    begin
     ara[i]:=random(100);
     write(ara[i]:4);
    end;
 maxs(ara,max,maxia);
 writeln;
 max:=-1;
  writeln('Array B:');
   for i:=1 to n do
    begin
     arb[i]:=random(100);
     write(arb[i]:4);
    end;
 maxs(arb,max,maxib);
   j:=ara[maxia];
   ara[maxia]:=arb[maxib];
   arb[maxib]:=j;
 writeln;
 writeln('Final array A:');
 for i:=1 to n do
  write(ara[i]:4);
 writeln;
 writeln('Final array B:');
 for i:=1 to n do
  write(arb[i]:4);
end.

//Двумерные
Const
 n=10;

Type
 ty=array[1..n,1..n] of integer;

Var
 ara,arb:ty;
 i,j,max,maxia,maxib,maxja,maxjb:integer;
 
procedure maxs(ar:ty;var max,maxi,maxj:integer);
 Var
  i,j:integer;
 begin
  for i:=1 to n do
   for j:=1 to n do
    if max         begin
          maxi:=i;
          maxj:=j;
          max:=ar[i,j];
         end;
 end;
 
begin
 randomize;
 max:=-1;
  writeln('Matrix A:');
   for i:=1 to n do
    begin
    writeln;
     for j:=1 to n do
      begin;
       ara[i,j]:=random(100);       
        write(ara[i,j]:4);   
     end;
    end;
 maxs(ara,max,maxia,maxja);
 writeln;
 max:=-1;
  writeln('Matrix B:');
   for i:=1 to n do
    begin
    writeln;
     for j:=1 to n do
      begin;
       arb[i,j]:=random(100);
        write(arb[i,j]:4);   
     end;
    end;
 maxs(arb,max,maxib,maxjb);
 j:=ara[maxia,maxja];
 ara[maxia,maxja]:=arb[maxib,maxjb];
 arb[maxib,maxjb]:=j;
 writeln;
 writeln('Final matrix A:');
 for i:=1 to n do
  begin
   writeln;
   for j:=1 to n do
   write(ara[i,j]:4);
  end;
 writeln;
 writeln('Final matrix B:');
 for i:=1 to n do
  begin
   writeln;
   for j:=1 to n do
   write(arb[i,j]:4);
  end;
end.

Пример работы(одномерный):
Array A:
  11  83  41  30   0  23  14  41  93  66
Array B:
  53  40  58  40  56  17  98  33  90   6
Final array A:
  11  83  41  30   0  23  14  41  90  66
Final array B:
  53  40  58  40  56  17  98  33  93   6