Напишите программу, которая заполняет массив из N элементов случайными целыми числами в диапазоне [ A, B ] и определяет номера двух элементов этого массива, которые расположены ближе всех друг к другу на числовой оси. Эти элементы не обязательно должны быть расположены рядом друг с другом. Если таких пар несколько, нужно вывести номера элементов самой последней из таких найденных пар.

Входные данные

Входная строка содержит три числа: границы диапазона случайных чисел A и B, а также размер массива N. Все числа разделены пробелами. Гарантируется, что 0 < N ≤ 10000.

Question

Информатика

Корнейка

28 февраля, 13:19

Напишите программу, которая заполняет массив из N элементов случайными целыми числами в диапазоне [ A, B ] и определяет номера двух элементов этого массива, которые расположены ближе всех друг к другу на числовой оси. Эти элементы не обязательно должны быть расположены рядом друг с другом. Если таких пар несколько, нужно вывести номера элементов самой последней из таких найденных пар.

Входные данные

Входная строка содержит три числа: границы диапазона случайных чисел A и B, а также размер массива N. Все числа разделены пробелами. Гарантируется, что 0 < N ≤ 10000.

+2

Ответы (1)

Знаете ответ на вопрос?

Кирилла · Answer 1

Const

n = 50; / / количество чиселvar

k: array [1 ... n] of integer;

i, j, n1, n2, minr, A, B: integer; begin

writeln (n, ' ', ':D') ;

A : = random (1000) ;

B : = random (1000) ;

minr : = 10000;

for i : = 1 to n do

k[i] : = A + random (B) ;

for i : = 1 to n do

for j : = 1 to n do

if ((abs (k[i] - k[j])) < minr) and (k[i] k[j]) then

begin

minr : = abs (k[i] - k[j]) ;

n1 : = i;

n2 : = j;

end;

writeln (n1, ' ', n2) ;

end.