Написать программу на паскале, которая вводит массив из n целых чисел и выводит на экран номера отрицательных элементов и сами эти элементы. протестировать программу для следующих массивов: а) 3 5 -2 0 -6 -8 1 б) -1 -2 -3 0 -1 2 3 массивы должны вводися вручную а не рандомно.
var a: array[1..100] of integer;
n, i: integer;
begin
write('Введите количество элементов массива');
readln(n);
write('Вводите элементы массива отделяя их клавишей "Enter"');
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if a[i]<0 then write('число ', a[i], ', номер ', i,'; ' );
end.