Ответы
Ответ дал:
0
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.
Вас заинтересует
1 год назад
1 год назад
2 года назад
7 лет назад
8 лет назад
8 лет назад