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

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

Решение:

program Array59;
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
    begin
     for k2:=1 to k do
      b[k]:=b[k]+a[k2];

     b[k]:=b[k]/k;
    end;


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

program Array59;

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

begin

for k2:=1 to k do

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

b[k]:=b[k]/k;

end;

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

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

end.

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

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

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

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

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