Найти сумму элементов массива A={a[i]}, удовлетворяющих условию c<=a[i]<=d. Использовать динамическое выделение памяти.

@Dgager · Регистрация: 16.11.2011

Помогите плиз.

@qwerty987654321 · 17.12.2013, 20:41

Pascal

program Project2;
uses crt;
type TArray=Array of Integer;
var A:array[1..100]of integer;
n, c, d, i, q, sum:integer;
begin
write('veddite kolichectvo massiva: ');
read(n);
write('vvedite chislo ot: ');
read(c);
write('vvedite chislo do: ');
read(d);
for i:=1 to n do
begin
write('vvedite ', i, ' chislo: ');
read(q);
A[i]:=q;
end;
sum:=0;
i:=1;
while i<=n do
begin
if (A[i]>=c)and(A[i]<=d) then
begin
sum:=sum+A[i];
end;
i:=i+1;
end;
writeln(' summa=', sum);
readln;
readln;
end.

@Dgager 0 / 0 / 0 Регистрация: 16.11.2011 Сообщений: 3
		1
	Найти сумму элементов массива A={a[i]}, удовлетворяющих условию c<=a[i]<=d. Использовать динамическое выделение памяти. 16.12.2011, 22:15. Показов 1587. Ответов 1 Метки нет (Все метки) Помогите плиз. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Найти сумму элементов массива A={a[i]}, удовлетворяющих условию c<=a[i]<=d. Использовать динамическое выделение памяти.

Решение