const
N = 5;
var
a: array [1..N] of integer;
i: integer;
begin
for i:= 1 to N do
a[i]:= random(5) + 1;
writeln('Сформированный массив:');
writeln(a[i]);
writeln('Номера элементов, совпадающих с первым элементом:');
for i:= 2 to N do
if a[i] = a[1] then writeln(i);
end.
const
N = 5;
var
a: array [1..N] of integer;
i: integer;
begin
for i:= 1 to N do
a[i]:= random(5) + 1;
writeln('Сформированный массив:');
for i:= 1 to N do
writeln(a[i]);
writeln('Номера элементов, совпадающих с первым элементом:');
for i:= 2 to N do
if a[i] = a[1] then writeln(i);
end.