1)Найти в массиве все отрицательные элементы

2)Составить программу уменьшения всех элементов массива в три раза

1) Program n1;const n=5;var a: array [1..n] of integer;i: integer;beginfor i:=1 to n do readln(a[i]);for i:=1 to n do if a[i]<0 then writeln(a[i]);end.2)Program n2;const n=5;var a: array [1..n] of real;i: integer;beginfor i:=1 to n do readln(a[i]);for i:=1 to n do a[i]:=a[i]/3;for i:=1 to n do writeln(a[i]);end.