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 k0 then writeln (k)

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

end.

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

for i=1 to n do

readln (A[i]);

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