Помогите решить задачу.
Дан массив. Найти количество элементов массива равных первому элементу.

Ты "гений" информатики просто напиши и проверь если не правильно я исправлю.

Program xxx;Var a:array [1..100] of integer;s,i:integer;BeginReadln (n);for i:= 1 to n do read ln (n);S:=0;

Вот так должна начинаться задача

это чисто к примеру

а у тебя const у меня школьная программа, а не высшка

const n= 10; m= 10; type Tmatr= array[1..n,1..m] of byte; var A: Tmatr; e,i,j: byte; begin Randomize; for i:=1 to n do for j:=1 to m do A[i,j]:= Random(10); e:=0; for i:=1 to n do for j:=1 to m do if (j mod 2)<>0 then if A[i,j] = A[1,1] then Inc(e); Writeln(e); Readln; end.