Дан целочисленный массив из 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

если есть д ш и в то это не куб а параллелипипед

var 

a,b,c,r: real;

begin

readln(a,b,c,r);

if (2*r< a) and (2*r< b) and  (2*r< c)

then writeln('поместится')

else writeln ('не поместится');

end.

для куба достаточно одного условия (2*r< a) 

как я понял тебе нужна программа которая просто выводит на экран нужный тебе текст

вот она

program ohotnik;

uses crt;

var i: integer;

begin 

clrscr;

textcolor(4);

write(' ka}i{gbiu ');

textcolor(12);

write(' oxothuk ');

textcolor(14);

write(' }i{ejiaet ');

textcolor(2);

write(' 3hatb ');

textcolor(3);

write(' rge ');

textcolor(1);

write(' cug9t ');

textcolor(5);

write(' fa3ahbi ');

readln;

end.

 

зы: слова я пытался писать буквами, я не знаю просто: поддерживает твой паскаль буквы или нет..