Составьте программу, которая позволяет ввести элементы массива а [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]<0 then begin k:=k+1; write(i, '  '); end; writeln; if k=0 then write('В массиве нет отрицательных элементов') else write('В массиве ',k,' отрицательных элементов'); readln; end.