составьте программу, которая наполняет массив b [1..8] случайными целыми числами в

var
  a: array[1..10] of integer; //Массив целочисленных элементов а
  i, n: integer; //n - количество элементов, одинаковых 1
begin
  n:= 0; //Обнуляем счетчик
  write('Начальный массив: ');
  for i:= 1 to 10 do Наполняем массив случайными элементами от 1 до 10, распечатываем его и считаем количество частей, одинаковых 1
  begin
  a[i]:= random(3);
  write(a[i], ' ');
  if a[i] = 1 then n:= n + 1;
  end;
  writeln;
  writeln('Количество частей, равных 1: ', n);
end.