Question

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

Answer 1

Uses crt;Var a:array[1..100] of integer; i,n,p,z,k,x:integer;BeginClrScr; write('Vvedite X= ');read(x);write('Razmernost massiva= '); read(n);write('Zapolnenie massiva= ');for i:=1 to n do beginread(a[i]);end;for i:=1 to n do beginIf a[i]=x then inc(k);end;Writeln;Write('res=',k); Readln; {выводим результат}End.