Объяснение:
Program kl;
var a:array[1..15] of real;
i:integer;
k:real;
begin
k:=0;
for i:=1 to 15 do
readln(a[i]);
if a[i]<0 then
k:=k+1;
end;
writeln('кол-во отрицательных элементов=',k);
end.
