Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.