Дан массив, содержащий 2014 вещественных чисел. напишите на одном из языков программирования программу, находящую в этом массиве два соседних элемента, значения которых наиболее близки, то есть абсолютная величина их разности минимальна. если таких пар несколько, можно взять любую из них. программа должна вывести найденные элементы. исходные данные объявлены так, как показано ниже. запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из описанных. 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]); … end.
Максим215281
3
10.06.2019 22:40
12
Другие вопросы по теме Информатика
AgeraClassik
15.11.2019 22:12
neush
15.11.2019 22:09
Gancha163
15.11.2019 22:02
BrainSto
15.11.2019 21:56
Сергей965
08.07.2019 14:20
raminqedimov543
08.07.2019 14:20
YourMango
14.12.2021 10:25
Abdueva
13.09.2019 13:10
Ilyavazhnov1995
13.09.2019 13:10
Популярные вопросы
- сторона основи правильного чотирокутної піраміди дорівнює 16 см...
3 - Графика грек тылынен кандай созден шыкан...
2 - Выпиши из этого списка: линии, кривые, точки, геометрические фигуры....
1 - 2 Choose the correct words. не пишите если не знаете ...
1 - Нәтижесі сөзінің синонимі...
3 - Масса куска железа равна 128 кг.Чему равен его объем? а)0,02; б)...
3 - Докажите тождество: cos(a+b)/sin a* sin b= ctg a * ctg b -1...
1 - У межах якої з тектонічних структур на території України сформувалися...
1 - Кто из персонажей «Войны и мира» думал завоевать себе военную славу,...
2 - Kim səhv buraxmadı? Vano: (2a-2b)2=2(a−b)?Kaxa: (2a-2b)2=4(a2-b?)Mişiko:...
1
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.