Дано целое число 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.