Задание на матрицу

[Guest]

Я извиняюсь, я новенькая, не знала где задать вопрос, решила здесь!

у меня задание: Даны натуральное число n, действительные числа x1,…xn. В последова-тельности x1,…xn все члены меньшие двух, заменить нулями. Кроме того, получить сумму членов, принадлежащих отрезку [c, d], а также число та-ких членов.

я не могу понять какая ошибка:

cоnst n=10; 
var 
a: array [1..n] of real; 
k,c,d,i:integer; 
sum:real; 
begin 
writeln('c='); 
readln©; 
writeln('d='); 
readln(d); 
writeln(' Vvedite elementi massiva'); 
for i:=1 to n do begin 
write('element #',i,'='); 
readln(a); 
end; 
for i:=1 to n do begin 
if (a<2) then a:=0; 
end; 
for i:=1 to n do 
begin 
if (a>c) or (a=c) and (a<d)>=d) then begin 
sum:= sum+a; 
inc(k); 
end; 
end; 
writeln('symma na promegytke= ',sum); 
writeln(' kolichestvo 4lenov pirnadlegashih otrezky =',k); 
readln; 
end.

помогите пожалуйста

 

[Dock1100]

Должно работать:

const n=10;
var
a: array [1..n] of integer;
k,c,d,i:integer;
sum:integer;
begin
write('c=');
readln(c);
write('d=');
readln(d);

writeln(' Vvedite elementi massiva');

for i:=1 to n do begin
write('element #',i,'=');
readln(a[i]);
end;

k:=0;
sum:=0;

for i:=1 to n do

if (a[i]>=c)and(a[i]<=d) then
begin
sum:=sum+a[i];
k:=k+1;
end;

writeln('symma na promegytke= ',sum:8);
writeln(' kolichestvo 4lenov pirnadlegashih otrezky =',k);

for i:=1 to n do
if a[i]<2 then a[i]:=0;

for i:=1 to n do begin
writeln('element #',i,'=',a[i]:8);
end;
readln;
end.

Добавлено :

3.2. Следуйте рубрикации! Форум разбит на разделы не просто так, а для удобства. Поэтому внимательнее относитесь к вопросу выбора раздела для своей темы. От этого во многом зависит скорость решения Вашей проблемы и количество ответов в Вашу тему.
У многих разделов есть собственные правила — они указаны в описании этих разделов.