program z1;
var
mas:array[1..5]of integer; //5 элементов
i, n:integer;
begin
Writeln('Введите элементы массива');
n :=0;
for i :=1 to 10 do
begin
mas[i]:=random(10);
Write('->');
Write(mas[i]);
if mas[i]<=5 then
inc(n);
end;
Writeln;
Writeln ('Отрицат. элем. всего: ',n);
Readln;
end.