Program pp;
var
i,p,c:integer;
a:array[1..20]of integer;
begin
for i:=1 to 20 do
a[i]:=random(-100,100);
write(a[i], ' ');
end;
write('Введите p');
read(p);
if(p = a[i]) then
inc(c);
write('Равных элементов в массиве числу P =',c);
end.
Объяснение:
создали массив создали 20 рандомных чисел сравнили их с числом p и в случаи успешного условия прибавляем C на 1 и потом просто вывели C в консоль.
Program pp;
var
i,p,c:integer;
a:array[1..20]of integer;
begin
for i:=1 to 20 do
begin
a[i]:=random(-100,100);
write(a[i], ' ');
end;
write('Введите p');
read(p);
for i:=1 to 20 do
begin
if(p = a[i]) then
begin
inc(c);
end;
end;
write('Равных элементов в массиве числу P =',c);
end.
Объяснение:
создали массив создали 20 рандомных чисел сравнили их с числом p и в случаи успешного условия прибавляем C на 1 и потом просто вывели C в консоль.