Найти сумму всех элементов массива, кроме элементов с номерами от K до L включительно

@elena02121994 · Регистрация: 17.11.2011

Дан массив размера N и целые числа K и L (1<K<=L<=N). Найти сумму всех элементов массива, кроме элементов с номерами от K до L включительно.

Добавлено через 39 секунд
Заранее огромное спасибо))

@GoldenBoy · 17.11.2011, 19:33

Pascal

var a:array[1..1000] of integer;
    i,n,s,k,l:integer;
begin
write('Введите размерность массива: ');readln(n);
write('Введите К (k>1): ');readln(k);
write('Введите L (l<=n): ');readln(l);
write('Введите элементы массива: ');
for i:=1 to n do
readln(a[i]);
s:=0;
for i:=1 to k-1 do
s:=s+a[i];
for i:=l+1 to n do
s:=s+a[i];
write('Сумма= ',s:4);
end.

@elena02121994 0 / 0 / 0 Регистрация: 17.11.2011 Сообщений: 4
		1
	Найти сумму всех элементов массива, кроме элементов с номерами от K до L включительно 17.11.2011, 15:41. Показов 1120. Ответов 1 Метки нет (Все метки) Дан массив размера N и целые числа K и L (1<K<=L<=N). Найти сумму всех элементов массива, кроме элементов с номерами от K до L включительно. Добавлено через 39 секунд Заранее огромное спасибо)) 0

Опции темы

Найти сумму всех элементов массива, кроме элементов с номерами от K до L включительно

Решение