13. Дан целочисленный массив из 30 элементов. Элементы массива могут принимать произвольные целые значения. Опишите на русском языке или на одном из языков программирования алгоритм, который находит и выводит номера двух элементов массива, наименее отличающихся друг от друга.


program bodi;
uses crt;
const n=30;
var a:array {1..n} of integer;
I,m,j,q,w:integer;
begin
clrscr();
randomize();
for i:=1 to n do begin
a{i}:=random(60)+1;
write(‘a{‘,I,’}= ‘,a{i},’ ‘);
end;
q:=0;
w:=0;
m:=ads(a{1}-a{2});
for i:=1 to n do
for j:i+1 to n do
if (m(ads(a{i})) then
begin
m:ads(a{i}-a{j});
q:=1;
w:=j;
end;
writeln(‘raznicha = ‘,m,’mezdu a{‘ ,q,’}= ‘,a{q},’ I a{‘,w,’}= ‘,a{w})
end.