Другие языки программирования и технологии

Напишите программу, которая находит в массиве количество элементов, равных заданному значению X .

Напишите программу, которая находит в массиве количество элементов, равных заданному значению X .

Входные данные
Первая строка содержит размер массива N . Во второй строке через пробел задаются N чисел – элементы массива. В третьей строке записано число X . Гарантируется, что 0 < N ≤ 10000 .

Выходные данные
Программа должна вывести одно числа – количество элементов массива, равных X .

Примеры
входные данные
6
1 2 3 2 3 3
2
выходные данные
2
Помогите пожалуйста написать программу в паскале, можно не всю, главное что в цикле
Азик Азик
Азик Азик
788
#include <iostream>
int main() {
int n, x, a[10000], i, c = 0;
std::cin >> n;
for (i = 0; i < n; ++i) std::cin >> a[i];
std::cin >> x;
for (i = 0; i < n; ++i) c += int(a[i] == x);
std::cout << c;
}
ВВ
Валдис Вадсон
92 811
Лучший ответ
k:=0;
for i:=1 to n do
if a[i]=x then inc(k);
writeln(k);
Вячеслав Цариценко
Вячеслав Цариценко
95 951
Миша Дужий Не вздумай платить "Зотикову", который тебе ответил, будет у тебя деньги выпрашивать за решения– кидает тут всех тупо на бабки! Сидит на даче старпёр С НЕМЫТЫМИ САЛЬНЫМИ ВОЛОСАМИ и кидает студентов!!! Моего друга кинул на 320 руб – денег не вернул!!! У этого мошенника Зотикова – есть вторая страница http://otvet.mail.ru/profile/id85810161/answers/all/ - он с двух кидает одновременно!!! Имя сменил только.
А можно и без цикла:
var x := ReadLnInteger('Введите число X:');
WriteLn('Результат: ', arr.Where(y -> y = x).Count); // arr - исходный массив
АД
Андрей Дмитриев
90 702
#include
#include
using namespace std;
int main()
{
int *a,*b,c;
int y=1;
cin>>c;
int mass[c];
int mass1[c]={};
for(int f=0;f<c;++f)
{
mass[f]=rand()%13+14;
cout<<mass[f]<<" ";
}
cout<<"\n";
a=mass;
b=mass1;
for(int i=0;i<c;++i)
{
for(int t=i+1;t<c;++t)
{
if(a[i]==a[t])
{
b[i]=a[i];

break;
}
}
}
int l;
for(int i=0;i<c;++i)
{
for(l=i+1;l<c;++l)
{
if(b[i]==b[l])++y;
if(y==2&&b[l]!=0)cout<<b[l]<<" ";
break;
}
}
}
Нуржан Агатаев
Нуржан Агатаев
232
Паскаль:
var A : array [1..10000] of integer;
var N, x, i, c, k : integer;
begin
readln(N);
for i:=1 to N do begin
A[i] := i;
read(A[i]);
end;
readln(x);
c := 0;
for k:=1 to N do
if A[k] = x then begin
c := c + 1;
end;
writeln(c);
end.
Жаксылык Бекмуханов
Жаксылык Бекмуханов
204
#include
#include
using namespace std;
int main()
{
int *a,*b,c;
int y=1;
cin>>c;
int mass[c];
int mass1[c]={};
for(int f=0;f<c;++f)
{
mass[f]=rand()%13+14;
cout<<mass[f]<<" ";
}
cout<<"\n";
a=mass;
b=mass1;
for(int i=0;i<c;++i)
{
for(int t=i+1;t<c;++t)
{
if(a[i]==a[t])
{
b[i]=a[i];

break;
}
}
}
int l;
for(int i=0;i<c;++i)
{
for(l=i+1;l<c;++l)
{
if(b[i]==b[l])++y;
if(y==2&&b[l]!=0)cout<<b[l]<<" ";
break;
}
}
}
СВ
Саша В.
181

Похожие вопросы