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

@Arlikino · Регистрация: 27.06.2014

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

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

Заранее спасибо !

Комментарий модератора

Arlikino, Множественные задания в одной теме запрещены правилами форума. Для каждой задачи создавайте отдельную тему.
Ваши задачи вынесены в отдельные темы:
Дан одномерный целочисленный массив A, состоящий из N элементов массива A, которые яв-ся числами Фибоначи
Удалить из массива все элементы, встречающиеся ровно два раза

@ermolay · 27.06.2014, 22:45

Pascal

var
  a: array[1..100] of integer;
  i, n, s, k, l: integer;
begin
  randomize;
  repeat
    write('Ââåäèòå ðàçìåð ìàññèâà N (N <= 100): ');
    readln(n);
  until n <= 100;
  repeat
    write('Ââåäèòå K, L (1 < K < L< ',n,'): ');
    readln(k, l);
  until (k>1) and (l>k) and (n>l);
  writeln('Ìàññèâ:');
  s:=0;
  for i:=1 to n do
  begin
    a[i]:=random(9)+1;
    write(a[i]:4);
    if not (i in [k..l]) then
      s:=s+a[i];
  end;
  writeln;
  writeln('Ñóììà èñêîìûõ ýëåìåíòîâ S = ',s);
  readln;
end.

Опции темы

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

Решение