Две задачки на одномерные массивы, помогите плз, это срочно

Новые сообщения · Правила

Страница 1 из 1 1
Модератор форума: Berestovskiy

Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Две задачки на одномерные массивы, помогите плз, это срочно

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

№1 | Автор: McBeat | 2011-01-05, 18:18 | Изменено: McBeat - Чт, 2011-01-06, 09:05 | Репутация: [ + 0 ]

Code

program reshenie;
var i,n:integer; a:array [1..1000] of real;
begin
randomize;
writeln('vvedite razmer massiva');
readln(n);
for i:=1 to n do
begin
      a[i]:=random(100)+1;
      write(a[i]:4:2,' ');
end;
writeln;
a[1]:=(a[1]+a[2])/2;
for i:=2 to n-1 do
     a[i]:=(a[i]+a[i-1]+a[i+1])/3;
a[n]:=(a[n]+a[n-1])/2;
for i:=1 to n do
write(a[i]:4:2,' ');
readln;
end.

№2 | Автор: che2116 | 2011-01-06, 23:15 | Репутация: [ + 0 ]

Спасибо за решение, но гдето здесь ошибка, оно среднее арифметическое неправильно считает(((((???????

Добавлено (11.01.11, 14:53)
---------------------------------------------

Quote (McBeat)

for i:=1 to n do
begin
     a[i]:=random(100)+1;
      write(a[i]:4:2,' '); end;
writeln; a[1]:=(a[1]+a[2])/2;
for i:=2 to n-1 do
     a[i]:=(a[i]+a[i-1]+a[i+1])/3;
a[n]:=(a[n]+a[n-1])/2;
for i:=1 to n do
write(a[i]:4:2,' ');

№3 | Автор: McBeat | 2011-01-11, 14:53 | Изменено: McBeat - Вт, 2011-01-11, 14:52 | Репутация: [ + 0 ]

Страница 1 из 1
1

прикладная математика