Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
Дарья 18
0 / 0 / 0
Регистрация: 14.10.2013
Сообщений: 56
#1

Заменить каждый элемент массива на среднее арифметическое их него и двух его соседей

15.10.2013, 13:17. Просмотров 837. Ответов 1
Метки нет (Все метки)

Заменить каждый элемент массива на среднее арифметическое их него и двух его соседей (левого и правого).
Например, из массива 1 5 3 7 8 должно получиться 2.00 3.00 5.00 6.00 5.00. Элементы за границей массива считать равными 0 (отборочный тур городской олимпиады 2004-2005гг).
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.10.2013, 13:17
Ответы с готовыми решениями:

Заменить каждый элемент массива на среднее арифметическое элемента и его соседей
Здравствуйте. Помогите пожалуйста решить задачи какие сможете, завтра зачёт, а я никак не могу с...

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

Заменить каждый элемент одномерного массива на его среднее арифметическое со своими соседями
Описать процедуру, заменяющую каждый элемент одномерного массива на его среднее арифметическое со...

Каждый отрицательный элемент массива заменить полусуммой его соседей справа и слева
Пусть дан массив из n элементов.Каждый отрицательный элемент замените полусуммой тех двух...

В массиве нужно заменить каждый элемент на среднее аримм.своих соседей
Помогите, пожалуйста! Не используя другого массива, заменить каждый элемент массива на среднее...

1
ildwine
Супер-модератор
2982 / 1864 / 1224
Регистрация: 04.03.2013
Сообщений: 4,566
Записей в блоге: 1
15.10.2013, 14:35 #2
Лучший ответ Сообщение было отмечено ildwine как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
var
  a : array[1..100] of integer;
  b : array[1..100] of real;
  i, n : byte;
begin
  randomize;
  writeln('введите n');
  readln(n);
  for i := 1 to n do
  begin
    a[i] := random(20);
    write(a[i]:10)
  end;
  writeln;
  for i := 1 to n do
  begin
    if i = 1 then b[i] := (0 + a[i+1]) / 2;
    if (i > 1) and (i < n) then b[i] := (a[i-1] + a[i+1]) / 2;
    if i = n then b[i] := (0 + a[i-1]) / 2;
    write(b[i]:10)
  end;
  writeln;
  readln
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.10.2013, 14:35

Заменить в файле каждый элемент кроме начального и поcледнего, на его среднее арифметическое с предыдущим и последующим элементом
Дан файл вещественных чисел.Заменить в файле каждый элемент кроме начального и поcледнего, на его...

Каждый отрицательный элемент массива заменить полусуммой соседей
Составить программу. Пусть дан массив из n элементов.Каждый отрицательный элемент замените...

Отыскать последний положительный элемент в одномерном массиве и заменить его на среднее арифметическое элементов массива
Отыскать последний положительный элемент в одномерном массиве и заменить его на среднее...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru