Решаем задачи Абрамян на Паскале. Array22

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

Решение:

program Array22;
var
  a:array[1..10] of integer;
  N,K,L,i,Sum:Integer;

begin
  Write('N: ');
  Readln(N);
  Write('K: ');
  Readln(K);
  Write('L: ');
  Readln(L);
  for i:=1 to N do
   begin
    write(i,' :');
    readln(a[i]);
   end;

  Sum:=0;
  for i:=1 to k-1 do Sum:=Sum+a[i];
  for i:=l+1 to n do Sum:=Sum+a[i];

  Writeln (Sum);
end.

program Array22;

var

a:array[1..10] of integer;

N,K,L,i,Sum:Integer;

begin

Write('N: ');

Readln(N);

Write('K: ');

Readln(K);

Write('L: ');

Readln(L);

for i:=1 to N do

begin

write(i,' :');

readln(a[i]);

end;

Sum:=0;

for i:=1 to k-1 do Sum:=Sum+a[i];

for i:=l+1 to n do Sum:=Sum+a[i];

Writeln (Sum);

end.

Другие задачи из раздела Array можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Array22

Комментарии:

Добавить комментарий Отменить ответ