1. Составить программу, позволяющую в одномерном массиве вычислить количество элементов массива, равных первому элементу.

Program kolichestvo;

var

A:array [1..n] of integer;

i, k:integer;

begin

k=0;

for i=2 to n do

begin

if A[i]=A[1] then 

k=k+1;

end;

if k<>0 then writeln(k)

else writeln(\'элементов равных первому не найдено\');

end.

программа для случая, когда вам не нужно создавать массив, в противном случае между 6 и 7 строками добавьте 2 следующие:

for i=1 to n do

readln(A[i]);

в программе не учитывается первый элемент, если его нужно учесть, то в 6 строке программы замените 0 на 1 или в 7 строке замените 2 на 1.