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

var a:array[1..10] of integer;b:array[1..10] of integer;i,k:integer;beginfor i:=1 to 10 dobegin;readln(a[i]);if a[i]<0 thenbegin;k+=1;b[k]:=i;end;end;writeln('Индексы отрицательных');for i:=1 to k dowriteln(b[i]);writeln('Всего:',k);end. 

var a:array [1..10] of integer;i,k:integer;beginfor i:=1 to 10 dobeginread(a[i]);if a[i]<0 then inc(k);end;writeln('кол-во элементов:',k);writeln('их индексы:');for i:=1 to 10 doif a[i]<0 then write(i,' ');end.