Написать программу ввода 15 элементов одномерного массива с клавиатуры

Объяснение:

Program kl;

var a:array[1..15] of real;

i:integer;

k:real;

begin

k:=0;

for i:=1 to 15 do

begin

readln(a[i]);

if a[i]<0 then

begin

k:=k+1;

end;

end;

writeln('кол-во отрицательных элементов=',k);

end.