составьте программку, которая позволяет ввести элементы массива а [1...10] с клавиатуры

Паскаль.
var a:array [1..10] of integer;
begin
writeln(' Введите 10 элементов массива через пробел');
i:=1;
repeat
read(a[i]);
i:=i+1;
until igt;10;
k:=0;
for i:=1 to 10 do
if a[i]lt;0 then begin k:=k+1; write(i, '  '); end;
writeln;
if k=0 then write('В массиве нет отрицательных частей') else write('В массиве ',k,' отрицательных частей');
readln;
end.