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. Отметь решение, как лучшее, плиз.
