которых наибольший из двух. (в паскале)

Ответы:

Например так(выводит начальный массив, максимальную сумму, измененный массив).

program test,

uses crt,

var

  arr:array[1..10] of integer,

  i,j,max,maxn:integer,

begin

  randomize,

  clrscr,

  for i:=1 to 10 do

    begin

      arr[i]:=random(100),

      write(arr[i], ),

    end,

  writeln,

  max:=arr[1]+arr[2],

  maxn:=2,

  for i:=1 to 10 do

    for j:=1 to 10 do

      if i&lt,&gt,j then

        if max&lt,arr[i]+arr[j] then

          begin

            max:=arr[i]+arr[j],

            if i&gt,j then maxn:=i else maxn:=j,

          end,

  writeln(max summ=,max),

 

  for i:=1 to 10 do

    begin

      if i&lt,maxn then arr[i]:=0,

      write(arr[i], ),

    end,

  readln,

end.