1)составьте программу,которая заполняет массив a[1..10]случайными целыми числами в диапазоне

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.

Отметь решение, как превосходнейшее, плиз.