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.