Даны 2 массива целых чисел а)найти номера их максимальных элементовб)поменять местами...

Question

Даны 2 массива целых чисел а)найти номера их максимальных элементовб)поменять местами максимальные элементы этих массивов

Answer 1

program fantscrin;

   const n = 10;

   var a: array [1..n] of integer;

       b: array [1..n] of integer;

       max_a,max_b,i,k:integer;

begin

   for i:=1 to n do

       a[i]:=random(20);

   for i:=1 to n do

       b[i]:=random(20);

   

   for i:=1 to n do

       write(a[i], '  ');

   writeln('');

   for i:=1 to n do

       write(b[i], '  ');

   

   max_a:=1;

   for i:=2 to n do

       if(a[i]>a[max_a]) then max_a:=i;

   

   max_b:=1;

   for i:=2 to n do

       if(b[i]>b[max_b]) then max_b:=i;

   

   writeln('');

   writeln('Max_a = ',max_a);

   writeln('Max_b = ',max_b);

   

   k:=a[max_a];

   a[max_a]:=b[max_b];

   b[max_b]:=k;

   

   for i:=1 to n do

       write(a[i], '  ');

   writeln('');

   for i:=1 to n do

       write(b[i], '  ');

       

end.

Comments

а в проге VBA можно с под программами