1. В одномерном массиве из 10 целых чисел вычислить количество отрицательных

program zz1;
var i,j,s,k:integer;max,min:real;
mas1:array[1..10] of integer;
mas2:array[1..20] of real;
mas3:array[1..20] of integer;
begin
for i:=1 to 10 do
begin
mas1[i]:=random(101)-50;
if mas1[i] lt; 0 then k:=k+1;
end;
writeln;
write( количество отрицательных частей = ,k);
max:=0;min:=100000;
for i:=1 to 10 do
begin
s:=random(101)-50;
mas2[i]:=random()+s ;
if mas2[i]gt;max then max:=mas2[i];
if mas2[i]lt;min then min:=mas2[i];
end;
writeln;
write( сумма максимального и минимального частей = ,max+min);
k:=0;j:=1;
for i:=1 to 20 do
begin
mas3[i]:=random(101)-50;
if mas3[i] mod 2 = 0 then k:=k+1;
if mas3[i] lt; 0 then j:=j+mas3[i];
end;
writeln;
write( количество четных частей = ,k);
writeln;
write( творенье отрицательных частей = ,j);
end.