написать программы:1. Определить количество частей массива amp;gt;50; 2. Найти сумму

P.S программки написаны для Pascal.

1)

program massive;

const

 n=5;

var

 a: array [1..n] of integer;

 i,k:integer;

begin

 randomize;

 k:=0;

 for i:=1 to n do

   begin

     a[i]:=random(100);

     write(a[i]:4);

   end;

 writeln;

 for i:=1 to n do  

   if a[i]gt;50 then  

     k:=k+1;

 writeln('Чисел великих 50: ',k)

end.

2)

program massive;

const

 n=5;

var

 a: array [1..n] of integer;

 i,k:integer;

begin

 randomize;

 k:=0;

 for i:=1 to n do

   begin

     a[i]:=random(100);

     write(a[i]:4);

   end;

 writeln;

 for i:=1 to n do  

   if (a[i]gt;10) and (a[i]lt;30) then  

     k:=k+a[i];

 writeln('Сумма чисел принадлежащих интервалу (10;30)= ',k);

end.