Question

Помогите пожалуйста разобраться с 4 заданием

Answer 1

program number4;

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

i,k: integer;

Begin

writeln('Введите 10 значений массива');

for i:=1 to 10 do

readln(a[i]);

write('Индексы: ');

for i:=1 to 10 do

if a[i]<0 then

Begin

write(i,' ');

k:=k+1;

End;

writeln(' ');

writeln('Количество отрицательных элементов: ',k);

End.

P.S. Значения массива вводить с клавиатуры.