Дано целое число n и массив случайных чисел x[1..n].все элементы,меньше 2,заменить...

Question

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

Answer 1

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;<br>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.