Паскаль цикл for

[ates]

Помогите плз
Даны натуральное число n, действительные числа X1,...,Xn. В последовательности X1,...,Xn все члены меньшие двух заменить нулями.
Получить сумму членов принадлежащих отрезку [3,7], а также число таких членов.

[Филантроп]

s:=0;k:=0;
for i:=1 to n do begin
if x[i]<2 then x[i]:=0;
if (x[i]>=3) and (x[i]<=7) then begin inc(k);s:=s+x[i];end;

[ates]

а не мог бы полностью написать то чет у мя неполучается.

[ROMA2PVT]

Const
n=10;
var
x:array[1..20]of integer;
s,k,i:integer;
begin
writeln('Массив: ');
randomize;
for i:=1 to n do
begin
x[i]:=random(10);
write(x[i],' ');
end;
writeln;
s:=0;
k:=0;
for i:=1 to n do
begin
if x[i]<2 then x[i]:=0;
if (x[i]>=3) and (x[i]<=7) then
begin
inc(k);
s:=s+x[i];
end;
end;
writeln;
for i:=1 to n do
begin
write(x[i],' ');
end;
writeln;
write(s,' ',k);
writeln;
end.

Судя по приведённому Филантропом фрагменту вот так будет.

а не мог бы полностью написать то чет у мя неполучается.

Ведь это так трудно сделать.Вам всю прогу написали фактически.

[ates]

спасиб большое

[ROMA2PVT]

Не за что.

[ROMA2PVT]

Да и есть ещё одно но.

Получить сумму членов принадлежащих отрезку [3,7], а также число таких членов.

Если говорится о промежутке чисел то программа выше постом подходит.Но если о промежутке от индексов то вот так:

Const
n=10;
var
x:array[1..20]of integer;
s,k,i:integer;
begin
writeln('Массив: ');
randomize;
for i:=1 to n do
begin
x[i]:=random(10);
write(x[i],' ');
end;
writeln;
s:=0;
k:=0;
for i:=1 to n do
begin
if x[i]<2 then
x[i]:=0;
end;
for i:=3 to 7 do
begin
inc(k);
s:=s+x[i];
end;
writeln;
for i:=1 to n do
begin
write(x[i],' ');
end;
writeln;
write(s,' ',k);
writeln;
end.