создать массив a из десяти целых чисел, принадлежащих промежутку [0;25). вывести полученный массив на экран. подсчитать k - количество элементов массива,
значение которых превышает 12

да оно тут есть но както раскидано

Ничего не раскидано: блок констант (const), блок описания переменныx (var), в главном модуле заполнение массива с одновременным рподсчетом количества цифр, больших 12.

Так и надо писать программы... Учись, студент.....

я не так понел, и учитель ракал неумеет обьеснять тут я понел как надо

щас токо понел

Program n_2;const n=10;         m=12;type Mas = array [1..n];var A: Mas;i, k: integer;beginRandomize; k:=0;for i:=1 to n do    begin        A[i]:=round(random(25));      {Задаем массив при помощи датчика СЧ}        if A[i]>m then k:=k=1;   end;WriteLn('k=', k);ReadLn;end.