const
n=5;
var
a : array [1..n] of integer;
i: integer;
begin
for i:=1 to n do
read(a[i]);
writeln('Массив:');
write(a[i],' ');
writeln;
for i:=2 to n do
if (a[i]=a[1]) then
writeln('Элемент массива, совпадающий с первым:', i);
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
const
n=5;
var
a : array [1..n] of integer;
i: integer;
begin
for i:=1 to n do
read(a[i]);
writeln('Массив:');
for i:=1 to n do
write(a[i],' ');
writeln;
for i:=2 to n do
if (a[i]=a[1]) then
writeln('Элемент массива, совпадающий с первым:', i);
end.