Вопрос по информатике:
Дан целочисленный массив из 10 элементов. Элементы массива могут принимать произвольные значения. Опишите на языке программирования алгоритм, который находит и выводит номера двух элементов массива, наименее отличающихся друг от друга.
- 23.07.2018 00:35
- Информатика
- remove_red_eye 16555
- thumb_up 8
Ответы и объяснения 1
// Внимание! Если программа не работает, обновите версию!
begin
var n:=10;
var a:=ArrRandom(n,1,99); a.Println;
var d:=100;
var i1,i2:integer;
for var i:=0 to n-2 do
for var j:=i+1 to n-1 do begin
var dd:=abs(a[i]-a[j]);
if dd
Writeln('Элементы ',i1+1,', ',i2+1)
end.
Пример
47 55 18 58 16 77 43 95 13 86
Элементы 3, 5
- 23.07.2018 03:12
- thumb_up 8
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.