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

var a: array [1 ... 10] of integer;

k, i: integer;

begin

k:=0;

for i: = 1 to 10 do

begin

writeln ('Введите ', i, ' элемент массива: ');

read (a[i]);

if a[i]<0 then inc (k);

end;

writeln ('Отрицательные элементы массива под индексами: ');

for i: = 1 to 10 do

if a[i]<0 then write (i, ' ');

writeln ();

write ('Кол-во таких элементов = ', k);

end.