Создать одномерный вещественный массив. Определить количество отрицательных элементов массива. Код в паскаль.

Const n=10;

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

i, k:integer;

begin

Randomize;

writeln ('Массив:') ;

for i:=1 to n do

begin

a[i]:=random*10-5;

write (a[i]:6:2) ;

end;

writeln;

k:=0;

for i:=1 to n do

if a[i]<0 then k:=k+1;

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

end.