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

@Cat2010 · Регистрация: 08.10.2010

Студворк — интернет-сервис помощи студентам

если кто сможет решить,буду очень-очень благодарна.
вот задачи:
1)ДАН МАССИВ РАЗМЕРА N И ЦЕЛЫЕ ЧИСЛА K И L(1<K<=L<=N).НАЙТИ СУММУ ВСЕХ ЭЛЕМЕНТОВ МАССИВА,КРОМЕ ЭЛЕМЕНТОВ С НОМЕРАМИ ОТ K ДО L ВКЛЮЧИТЕЛЬНО;
2)Заполнить массив из 12 элементов случайными целыми числами,принадлежащими интервалу от 1 до 20.Вывести значения элементов массива на экран в одну строку через пробел.Найти сумму первых шести элементов массива,подсчитать количество нечётных элементов среди последних шести;
3)Дана матрица размера M*N.В каждом её столбце найти количество элементов,больших среднего арифметического всех элементов этого столбца.

@Ногин Антон · 08.10.2010, 19:47

Первая вроде так:

Pascal

var mas : array [1..N] of integer;
k,l,n, sum : integer;
begin
write('Ввести k,l,n');
read(k,l,n);
sum:=0;
begin
for k:=2 to l do
begin
sum:= sum + mas[k];
end;
write(sum);
end.

@Cat2010 · 08.10.2010, 19:51 **[ТС]**

спасибо.я её проверю

@Cat2010 · 15.10.2010, 14:21 **[ТС]**

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

@Puporev · 15.10.2010, 14:25

Сообщение от Cat2010

L(1<K<=L<=N).

Как-то не логично написано...
k>1 нормально
k=l ?
l=n ну может быть, тогда почему нет k=1?

@Cat2010 · 15.10.2010, 14:30 **[ТС]**

1<K<=L<=N.это значит,что один меньше К,Л меньше или равно Л,Л меньше или равно Н

@AF · 15.10.2010, 14:32

Pascal

CONST
  N=10;
VAR
  A: ARRAY[1..N] OF INTEGER;
  i, K, L, Sum: BYTE;
BEGIN
  Randomize;
  FOR i := 1 TO N
  DO
    A[i] := Random(10);
  FOR i := 1 TO N
  DO
    WRITE(A[i], ' ');
  WRITELN;
  WRITE('K=');
  READLN(K);
  WRITE('L=');
  READLN(L);
  Sum := 0;
  IF L<>N
  THEN
    FOR i := 1 TO N
    DO
      IF (i<K) AND (i>L)
      THEN
        Sum := Sum + A[i];
  WRITELN('Sum=',Sum);
  READLN
END.

@Puporev · 15.10.2010, 14:34

Сообщение от AF

IF (i<K) AND (i>L)

А если L=N?

@AF · 15.10.2010, 14:45

Хм... А L=N не запрещено условием

Добавлено через 1 минуту
А ведь первый вариант был правильный, зря я исправил

Pascal

CONST
  N=10;
VAR
  A: ARRAY[1..N] OF INTEGER;
  i, K, L, Sum: BYTE;
BEGIN
  Randomize;
  FOR i := 1 TO N
  DO
    A[i] := Random(10);
  FOR i := 1 TO N
  DO
    WRITE(A[i], ' ');
  WRITELN;
  WRITE('K=');
  READLN(K);
  WRITE('L=');
  READLN(L);
  Sum := 0;
  FOR i := 1 TO N
  DO
    IF (i<K) OR (i>L)
    THEN
      Sum := Sum + A[i];
  WRITELN('Sum=',Sum);
  READLN
END.

@Cat2010 0 / 0 / 0 Регистрация: 08.10.2010 Сообщений: 14
		1
	Найти сумму всех элементов массива, кроме элементов с номерами от k до l включительно 08.10.2010, 19:34. Показов 2180. Ответов 8 Метки нет (Все метки) если кто сможет решить,буду очень-очень благодарна. вот задачи: 1)ДАН МАССИВ РАЗМЕРА N И ЦЕЛЫЕ ЧИСЛА K И L(1<K<=L<=N).НАЙТИ СУММУ ВСЕХ ЭЛЕМЕНТОВ МАССИВА,КРОМЕ ЭЛЕМЕНТОВ С НОМЕРАМИ ОТ K ДО L ВКЛЮЧИТЕЛЬНО; 2)Заполнить массив из 12 элементов случайными целыми числами,принадлежащими интервалу от 1 до 20.Вывести значения элементов массива на экран в одну строку через пробел.Найти сумму первых шести элементов массива,подсчитать количество нечётных элементов среди последних шести; 3)Дана матрица размера M*N.В каждом её столбце найти количество элементов,больших среднего арифметического всех элементов этого столбца. 0

@Cat2010 0 / 0 / 0 Регистрация: 08.10.2010 Сообщений: 14
	08.10.2010, 19:51 [ТС]	3
	спасибо.я её проверю 0

@Cat2010 0 / 0 / 0 Регистрация: 08.10.2010 Сообщений: 14
	15.10.2010, 14:21 [ТС]	4
	помогите решить задачу: дан массив размера N и целые числа K и L(1<K<=L<=N).найти сумму всех элементов массива,кроме элементов с номерами от K до L включительно. 0

@Puporev Почетный модератор 64288 / 47587 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	15.10.2010, 14:25	5
	Сообщение от Cat2010 L(1<K<=L<=N). Как-то не логично написано... k>1 нормально k=l ? l=n ну может быть, тогда почему нет k=1? 0

@Cat2010 0 / 0 / 0 Регистрация: 08.10.2010 Сообщений: 14
	15.10.2010, 14:30 [ТС]	6
	1<K<=L<=N.это значит,что один меньше К,Л меньше или равно Л,Л меньше или равно Н 0

@Puporev Почетный модератор 64288 / 47587 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	15.10.2010, 14:34	8
	Сообщение от AF IF (i<K) AND (i>L) А если L=N? 1

Опции темы

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

Решение