const N = 40;
var a:array[1..N] of integer;
i, x:integer;
begin
for i:=1 to N do begin
readln(a[i]);
if i<>1 then
if a[i]=a[1] then
x:=x+1;
end;
writeln(x);
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
const N = 40;
var a:array[1..N] of integer;
i, x:integer;
begin
for i:=1 to N do begin
readln(a[i]);
if i<>1 then
if a[i]=a[1] then
x:=x+1;
end;
writeln(x);
end.