Дан массив из 15 эл. Диапазон от 0 до 20 (случ. Образом). Дано целое число n>0. Найти пару…

var a: array [1… 15] of byte; i, res, n: byte; begin for i: =1 to 15 do a[i]: =trunc (random (21); res: =20; read (n); for i: =1 to 14 do if a[i]+a[i+1]=n then res: =i; if res=20 then writeln ('Таких нет') else writeln (res, ' и ', res+1); end. Число 20 точно не встретится, поэтому используется как показатель, что таких нет.