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 klt;gt;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.