1)

var

  a: array[1..10] of integer;  //Массив целочисленных элементов а

  i, n: integer;  //n - количество элементов, равных 1

begin

  n:= 0;  //Обнуляем счетчик

  write('Исходный массив:  ');

  for i:= 1 to 10 do  {Заполняем массив случайными элементами от 0 до 2, распечатываем его и считаем количество элементов, равных 1}

  begin

    a[i]:= random(3);

    write(a[i], '  ');

    if a[i] = 1 then n:= n + 1;

  end;

  writeln;

  writeln('Количество элементов, равных 1:  ', n);

end.

2)

var

  a: array[1..10] of integer;  //Целочисленный массив а

  i: integer;

  b: boolean;  {Логическая переменная, определяющая, есть ли в массиве элемент, равный 5}

begin

  b:= false;  //Присваиваем начальное ложное значение логической переменной

  write('Исходный массив:  ');

  for i:= 1 to 10 do  {Заполняем массив элементами в диапазоне от 1 до 10 и печатаем его}

  begin

    a[i]:= random(9) + 1;

    write(a[i], '  ');

  end;

  writeln;  //Перевод на новую строку

  for i:= 1 to 10 do //Определяем, есть ли в массиве элемент, равный 5

    if a[i] = 5 then  {Если элемент равен 5, то печатаем 'да', присваиваем переменной b истинное значение и break - выход из цикла}

    begin

      writeln('Да');

      b:= true;

      break;

    end;

  if b = false then writeln('Нет');  {Если в массиве нет элемента, равного 5, печатаем 'Нет'}

end.

Отметь решение, как лучшее, плиз.