Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: 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 ]
3 | Автор: McBeat | 2011-01-11, 14:53 | Изменено: McBeat - Вт, 2011-01-11, 14:52   |  Репутация: [ + 0 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Две задачки на одномерные массивы, помогите плз, это срочно
Страница 1 из 11
Поиск: