Вопрос, который вызвал трудности

Напишите процедуру, которая cчитает количество равных элементов в массиве в переменную i.

Ответ экспертов Учись.Ru

Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме «ЕГЭ (школьный)». Ваш вопрос звучал так: Напишите процедуру, которая cчитает количество равных элементов в массиве в переменную i.

После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:

const n=5;
type t_mass= array [1..n] of integer;
procedure kol(a:t_mass; var k:integer);
var i:integer;
begin
i:=1;
while (i<n) and (a[i]=a[i+1]) do  inc(i);
k:=i;
end;
 
var i:integer;
    a:t_mass;
 
Begin
for i:= 1 to n do
read(a[i]);
kol(a,i);
write(i);
end.