составьте программу, которая заполняет массив а[1..10] случайными целыми числами от 0 до 2 и выводит на экран количество элементов, равных 1.
Pascal Abc

Program enot;Var a: array [1..10] of integer; i,k: integer;begink:=0;for i:= 1 to 10 doa[i]:= random(2);for i:= 1 to 10 doif a[i]=1 then k:=k+1;writeln(k);end.

var a:array[1..10] of integer;i,k:integer;beginrandomize;for i:=1 to 10 do begina[i]:= random(3);write (a[i],' '); end;writeln;k:=0;for i:=1 to 10 doif a[i]=1 then k:=k+1;writeln('Количество элементов равных 1 = ',k);end.