Решаем задачи Абрамян на Паскале. 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.

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

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

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

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