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

Question

Информатика

Семион

30 октября, 05:24

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

+5

Ответы (1)

Знаете ответ на вопрос?

Маюха · Answer 1

Var n, i:integer;

sum:real;

a:array[1 ... 1024] of real;

begin

readln (n) ;

for i:=1 to n do

begin

read (a[i]) ;

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

end;

for i:=3 to 7 do

sum:=sum+a[i];

writeln ('summa=', sum) ;

end.