Question

Помогите с прогой. Паскаль.Ввести массив, ввести кол-во элементов в массиве ( не через рандом). Ввести число. Найти сколько элементов равны этому числу. (ввод массива и кол-ва эл. Через процедуры)

Answer 1

var a:array [1..100] of integer; 
k,i,n,x:integer; 
begin 
k:=0; 
writeln('Введите количество элементов массива'); 
read(n); 
writeln('Введите число'); 
read(x); 
for i:=1 to n do begin 
read(a[i]); 
if a[i]=x then k:=k+1; 
end; 
writeln('Колиечество элементов равных числу ',x,' = ',k); 
end.

Answer 2

У вас нет ввода самих элементов массива, но все равно спасибо)

Answer 3

Добавить одну строку забыл, извините)