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

Array78. Дан массив размера $$N$$. Заменить каждый элемент массива на среднее арифметическое этого элемента и его соседей.

Решение:

program Array78;
var
  a : array[1..10] of real;
  AkOld,Sred: real;
  N,i:Integer;

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

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

  AkOld:=a[1];
  a[1]:=(a[1]+a[2])/2;

  for i:=2 to N-1 do
   begin
    Sred:=(AkOld+a[i]+a[i+1])/3;
    AkOld:=a[i];
    a[i]:=Sred;
   end;

  a[N]:=(AkOld+a[N])/2;

  for i:=1 to N do writeln(i,' :',a[i]);
end.

program Array78;

var

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

AkOld,Sred: real;

N,i:Integer;

begin

Write('N: ');

Readln(N);

Writeln('A: ');

for i:=1 to N do

begin

write(i,' :');

readln(a[i]);

end;

AkOld:=a[1];

a[1]:=(a[1]+a[2])/2;

for i:=2 to N-1 do

begin

Sred:=(AkOld+a[i]+a[i+1])/3;

AkOld:=a[i];

a[i]:=Sred;

end;

a[N]:=(AkOld+a[N])/2;

for i:=1 to N do writeln(i,' :',a[i]);

end.

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

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

olegst1975

20.03.2016 в 02:42

Строка 28:
a[N]:=(AkOld+a[N])/2;
К тому моменту a[N-1] уже измененное

Ответить
- Anton
  
  20.03.2016 в 17:07
  
  Поправил:
  Было:
  
  a[N]:=(a[N-1]+a[N])/2;
  
  1
  
  a[N]:=(a[N-1]+a[N])/2;
  
  Стало:
  
  a[N]:=(AkOld+a[N])/2;
  
  1
  
  a[N]:=(AkOld+a[N])/2;
  
  Ответить

ну не знаю стоит ли так держаться в пределах одного массива, все задания с array76 и дальше решал через 2й массив. типо того:

program array78;
var a,b:array [1..10] of real; n:integer;
begin
  readln (n);
  for var i:=1 to n do read (a[i]);
  b[1]:=(a[1]+a[2])/2;
  for var i:=2 to n-1 do
  begin
    b[i]:=(a[i]+a[i+1]+a[i-1])/3;
  end;
   b[n]:=(a[n]+a[n-1])/2;
   for var i:=1 to n do write (b[i]:1:2,' ');
  end.

program array78;

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

begin

readln (n);

for var i:=1 to n do read (a[i]);

b[1]:=(a[1]+a[2])/2;

for var i:=2 to n-1 do

begin

b[i]:=(a[i]+a[i+1]+a[i-1])/3;

end;

b[n]:=(a[n]+a[n-1])/2;

for var i:=1 to n do write (b[i]:1:2,' ');

end.

Ответить

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

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

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

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