Решаем задачи Абрамян на Паскале. Array46

Array46. Дано число $$R$$ и массив размера $$N$$. Найти два различных элемента массива, сумма которых наиболее близка к числу $$R$$, и вывести эти элементы в порядке возрастания их индексов (определение наиболее близких чисел дано в задании Array40).

Решение:

program Array46;
var
  a:array[1..10] of integer;
  N,R,i,i2,k,k2:Integer;

begin
  Write('N: ');
  Readln(N);
  Write('R: ');
  Readln(R);
  for i:=1 to N do
   begin
    write(i,' :');
    readln(a[i]);
   end;

   k:=1;
   k2:=2;

  for i:=1 to N do
    for i2:=i+1 to N do
      if abs(a[i]+a[i2]-R)<abs(a[k]+a[k2]-R) then
        begin
          k:=i;
          k2:=i2;
        end;

  Writeln(k,' ',k2);
end.

program Array46;

var

a:array[1..10] of integer;

N,R,i,i2,k,k2:Integer;

begin

Write('N: ');

Readln(N);

Write('R: ');

Readln(R);

for i:=1 to N do

begin

write(i,' :');

readln(a[i]);

end;

k:=1;

k2:=2;

for i:=1 to N do

for i2:=i+1 to N do

if abs(a[i]+a[i2]-R)<abs(a[k]+a[k2]-R) then

begin

k:=i;

k2:=i2;

end;

Writeln(k,' ',k2);

end.

Задачи из раздела Array можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Array46

Комментарии:

Добавить комментарий Отменить ответ