Cоставить процедуру ввода элементов одномерного массива и вычисления количества элементов, равных К.
(Не обязательно) Разработать программу где осуществляется вызов данной процедуры.
(Не обязательно) Разработать программу где осуществляется вызов данной процедуры.
Answers & Comments
PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018
procedure FillArr(var a: array of integer; n, k: integer);
begin
a := ReadArrInteger(n);
Println($'{a.Where(t -> t = k).Count} эл. равны k');
end;
begin
var a: array of integer;
var (n, k) := ReadInteger2('n,k->');
FillArr(a, n, k);
end.