разработать схему алгоритма который вводит массив из n целых чисел выволит номера отрицательных элементов и сами эти элементы

for(i:=1 to n) a[i]:=random(101);// заполняшь массив a целыми числами в диапозоне от 0 до 100

Cхема вывода номера отрицательного элемента и самого этого элемента.

for(i:=1 to n) do if a[i]<0 then write(i,' ',a[i],'      ');// a это массив по которому ты пробегешся.

Блок-схема - во вложении.

Program Poliklolik;const n=10;var a:array[1..n] of integer; i: integer;  begin  writeln('*** alphaues is thinking... ***');  writeln('***          OK!            ***');  for i:=1 to n do  begin    write('Введите ',i,'-e число ');    readln(a[i]);  end;  writeln('отрицательные элементы массива: ');  for i:=1 to n do    if a[i]<0 then writeln(i,'-й:  ',a[i]);  writeln('***        The end          ***');end.