Дано целое число n и массив случайных чисел x[1 ... n]. все элементы, меньше 2, заменить нулями. Кроме того, получить сумму и количество элементов, п ринаднежащих отрезку [3; 7]

Var i, n, r, k: integer;

s: array [1 ... 50] of integer;

Begin

Write ('n=') ;

Read (n) ;

for i: = 1 to n do

begin

s[i]: = random (100) ;

Writeln (s[i]) ;

end;

for i: = 1 to n do

if s[i]<2 then s[i]:=0;

r:=0;

k:=0;

for i: = 3 to 7 do

begin

k:=k+1;

r: = r+s[i];

end;

WriteLn ('kol=', k) ;

WriteLn ('sum=', r) ;

end.