Разработать схему алгоритма, который вводит массив из N целых чисел и выводит номера отрицательных элементов и сами эти элементы. Протестировать алгоритм для следующих массивов: а) 3 5 -2 3 -2 0 -6 -8 1 б) -1 -2 -3 -4 0 -1 2 3

Program Pr1;uses crt;var mas:array[byte] of integer; i,n:integer;Beginclrscr;readln(n);for i:=1 to n do read(mas[i]);for i:=1 to n do if mas[i]<0 then writeln(i,' ',mas[i]);end.

Program Pr1;uses crt;var mas:array[byte] of integer; i,n:integer;Beginclrscr;readln(n);for i:=1 to n do read(mas[i]);for i:=1 to n do if mas[i]<0 then writeln(i,' ',mas[i]);end.