program CountFive;
var
arr: array[1..10] of Integer;
i, count: Integer;
begin
count := 0;

// заполнение массива случайными числами
Randomize;
for i := 1 to 10 do
begin
arr[i] := Random(10); // случайное число от 0 до 9
end;

// вывод массива на экран
writeln('Массив:');
for i := 1 to 10 do
begin
write(arr[i], ' ');
if arr[i] = 5 then
count := count + 1;
end;

writeln;
writeln('Количество элементов равных 5: ', count);
end.