Дан массив, содержащий 2014 вещественных чисел. - вопрос №28854932014 от kgulina01 30.03.2020 20:15

Question

Информатика: Дан массив, содержащий 2014 вещественных чисел. напишите на одном из языков программирования программу, находящую в этом массиве два соседних элемента, значения которых наиболее близки, то есть абсолютная величина их разности минимальна. если таких пар несколько, можно взять любую из них. программа должна вывести найденные элементы. исходные данные объявлены так, как показано ниже. запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из описанных. const n=2014;

kgulina01 · Answer

Const
N = 2014;
var
a: array [1..N] of real;
d, r: real;
i, j, k: integer;
begin
for i := 1 to N do
readln(a[i]);
d := abs(a[2] - a[1]);
j := 1;
for i := 2 to N - 1 do
if abs(a[i + 1] - a[i]) < d then
begin
d := abs(a[i + 1] - a[i]);
j := i;
end;
writeln(a[j], ' ', a[j + 1])
end.