Написать программы в Паскале(срочно):
1) В массиве из N элементов найти максимальный элемент массива.
2) В массиве из N элементов найти максимальный из отрицательных элементов массива.

1)vara:array [1..10] of integer;i,k,m:integer;beginfor i:= 1 to 10 doa[i]:= Random(-100,100);writeln(a);m:=a[1];for i:=2 to 10 doif a[i]>m then m:=a[i];writeln(m);end.2)vara:array [1..10] of integer;i,k,m:integer;beginfor i:= 1 to 10 doa[i]:= Random(-100,100);writeln(a);for i:=1 to 10 doif a[i]<0 then m:=a[i];for i:=1 to 10 doif (a[i]<0) and (a[i]>m) then m:=a[i];writeln(m);end.