Написать программу, которая вычисляет, сколько раз введенное с клавиатуры число встречается в массиве. Массив заполняется через random
Var a:array[0..10000] of integer; k,i,x,n:integer;beginread(n); //n-количество элементов в массивеfor i:=1 to n do a[i]:=random (500)+5; read(x);for i:=1 to n doif a[i]=x then k:=1+k;write(k);end.
var a:array[0..10000] of integer; k,i,x,n:integer; begin read(n); for i:=1 to n do read(a[i]); read(x); for i:=1 to n do if a[i]=x then k:=1+k; write(k); end.
Только вместо read(a[i]), напиши a[i]:=random (500)+5;