Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 22.12.2011, 00:52   #1
Mr-FredY
Новичок
Джуниор
 
Регистрация: 21.12.2011
Сообщений: 6
Вопрос Одномерный массив

Помогите с решением.
Дан одномерный целочисленный массив размерности 10. Нужно четные элементы заменить средним арифметическим двух соседних элементов (предшествующего и последующего). Первый и последний элементы оставить без изменений.
Mr-FredY вне форума Ответить с цитированием
Старый 22.12.2011, 01:05   #2
VIK_aka_TOR
Участник клуба
 
Аватар для VIK_aka_TOR
 
Регистрация: 30.01.2011
Сообщений: 1,578
По умолчанию

Код:
var
a: array [1..10] of real;
i: integer;
begin
     writeln('Изначальный массив:');
    for i:=1 to 10 do
    begin
        a[i]:=random(20);
        writeln('a[',i,']=',a[i]);
    end;
    for i:=1 to 4 do
    a[2*i]:=  (a[2*i-1] + a[2*i+1])/2;
    
    Writeln('Измененный массив:');
    for i:=1 to 10 do
    writeln('a[',i,']=',a[i]);
end.
пишу код не только за печеньки
VIK_aka_TOR вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
одномерный массив PROkaZZZniK Помощь студентам 6 08.12.2011 17:38
Одномерный массив и Двумерный массив eugene1437 Общие вопросы C/C++ 15 25.05.2011 19:17
Одномерный массив , двухмерный массив Woxx Паскаль, Turbo Pascal, PascalABC.NET 0 10.09.2010 09:28
Одномерный массив. Q basic - Построить новый массив из элементов исходного ,которые больше P. Marishkaa Помощь студентам 2 12.01.2010 16:54
Двумерный массив, одномерный массив. Branbal Помощь студентам 14 18.11.2009 12:40