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

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

Решение:

program Array42;

var
  a:array[1..10] of integer;
  N,i,k,R,Min:Integer;
 
begin
  Write('N: ');
  Readln(N);
  Write('R: ');
  Readln(R);
  for i:=1 to N do
   begin
    write(i,' :');
    readln(a[i]);
   end;

  Min:=abs(a[1]+a[2]-R);
  k:=2;

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


  Writeln(a[k-1],' ',a[k]);
end.

program Array42;

var

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

N,i,k,R,Min:Integer;

begin

Write('N: ');

Readln(N);

Write('R: ');

Readln(R);

for i:=1 to N do

begin

write(i,' :');

readln(a[i]);

end;

Min:=abs(a[1]+a[2]-R);

k:=2;

for i:=2 to N do

if abs(a[i-1]+a[i]-R)<Min then

begin

Min := abs(a[i-1]+a[i]-R);

k := i;

end;

Writeln(a[k-1],' ',a[k]);

end.

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

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

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

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