1)составьте программу,которая заполняет массив a[1..10]случайными целыми числами в диапазоне от 0 до 2 и выводит на экран количество элементов,равных 1.       2)массив 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. Отметь решение, как лучшее, плиз.