Язык программирования - паскаль
Составьте программу, которая в одномерном массиве размерностью 12 (элементы массива случайные числа из промежутка от 0 до 6) находит количество элементов равных 3. Оформите вывод элементов на экран в строчку, количество искомых элементов на следующей строке.

// PascalABC.NET

begin

 var a := ArrRandom(12, 0, 6);

 a.Println.Count(p -> p = 3).Print

end.

100010,011101=42,35   (вос. сис.)

10010,011101=22,1d   (шест. с.)

  111 111 111 000 001=77701(в.с)

  0111 1111 1100 0001(добавляем 0)=7fc1 (ш.с.)

0,000110101=0,065(в.с) (доб. 00)

0,0110101=0,35(ш.с.) 

0,11 100 110 101=0,3465(в.с.)

0,111 0011 0101=0,735(ш.с.) 

program mdd; uses crt; var a,b,c,d: longint; beginclrscr; readln(a,b,c,d); if (a> b) and (a> c) and (a> d) and (d< a) and (d< c) and (d< b) then writeln('правда')else writeln(''неправда); readkey; end.