Заполнить массив из 10 элементов случайными числами в интервале[0… 4]и определить,…

uses crt; const N=10; var a: array [1… N] of integer; x,k: integer; begin for x: =1 to N do begin a[x]: =random (5); writeln ('a[',x,']: ',a[x]); end; for x: =1 to N-1 do if a[x]=a[x+1] then inc (k); if k>0 then writeln ('Есть одинаковые соседние элементы.') else writeln ('Одинаковых соседних элементов нет.'); end.