В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
marinnka09
marinnka09
03.01.2023 15:53 •  Информатика

Дан массив, содержащий 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.

Показать ответ
Ответ:
Denchik15070
Denchik15070
09.07.2020 06:34
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.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота