Дан целочисленный массив из 10 элементов. элементы массива могут принимать произвольные значения. опишите на языке программирования алгоритм, который находит и выводит номера двух элементов массива, наименее отличающихся друг от друга.
// PascalABC.NET 3.2, сборка 1353 от 27.11.2016 // Внимание! Если программа не работает, обновите версию!
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<d then begin d:=dd; i1:=i; i2:=j end end; Writeln('Элементы ',i1+1,', ',i2+1) end.
Пример 47 55 18 58 16 77 43 95 13 86 Элементы 3, 5
Впервые компьютеры начали производить в 1975 году в америкаской компаниии "Apple". Ее основатель, Стив Джобс собрал IBM. вой первый персональный компьютер в гараже своего отца. в 1981 появиись первые ПК фирмы IBM.Они были более дешевыми и в них были использованы последние разработки сразу нескольких других фирм, в частности программное обеспечение фирмы MICROSOFT. В вычислительной технике архитектура определяет состав, назначение, логическую организацию и порядок взаимодействия всех аппаратных и программных средств, объединенных в единую вычислительную систему. Иными словами, архитектура описывает то, как ЭВМ представляется пользователю. В современных ПК используется принцип открытой архитектуры: устройства, которые участвуют в обработке информации (процессор, оперативная память и т.д.) соединяются с отстальными устройствами единой магистралью - так называемой шиной. Периферийные устройства - устройства, связанные с процессором через шину (шина - канал передачи данных в виде проводников на печатной плате или многожильного кабеля.)
Прежде чем начать рисовать взаимопересекающиеся множества общих друзей, я заглянул в Словарь иностранных слов, вошедших в состав русского языка.- Чудинов А.Н., 1910., и нашел толкование слова «МИНИМАЛЬНЫЙ» - (от лат. minimi — малейший). Наименьшая из рассматриваемых величин. Исходя из этого определения и логики, у трёх этих пользователей обязательно найдётся хотя бы 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<d then begin d:=dd; i1:=i; i2:=j end
end;
Writeln('Элементы ',i1+1,', ',i2+1)
end.
Пример
47 55 18 58 16 77 43 95 13 86
Элементы 3, 5