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

Array60. Дан массив $$A$$ размера $$N$$. Сформировать новый массив $$B$$ того же размера по следующему правилу: элемент $$B_K$$ равен сумме элементов массива $$A$$ с номерами от $$K$$ до $$N$$.

Решение:

program Array60;
var
  a,b:array[1..10] of real;
  N,k,k2:Integer;


begin
  Write('N: ');
  Readln(N);

  Writeln('A: ');
  for k:=1 to N do
   begin
    write(k,' :');
    readln(a[k]);
   end;

   for k:=1 to N do b[k]:=0;

   for k:=1 to N do
     for k2:=k to N do
      b[k]:=b[k]+a[k2];

  Writeln('B(',k2,'):');
  for k:=1 to N do writeln(k,' :',b[k]);
end.

program Array60;

var

a,b:array[1..10] of real;

N,k,k2:Integer;

begin

Write('N: ');

Readln(N);

Writeln('A: ');

for k:=1 to N do

begin

write(k,' :');

readln(a[k]);

end;

for k:=1 to N do b[k]:=0;

for k:=1 to N do

for k2:=k to N do

b[k]:=b[k]+a[k2];

Writeln('B(',k2,'):');

for k:=1 to N do writeln(k,' :',b[k]);

end.

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

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

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

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