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

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

Решение:

program Array20;
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:=K to L do Sum:=Sum+a[i];

  Writeln (Sum);
end.

program Array20;

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:=K to L do Sum:=Sum+a[i];

Writeln (Sum);

end.

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

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

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

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