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

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