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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 16.11.2015, 09:56   #1
_Marchel_
Пользователь
 
Регистрация: 14.11.2015
Сообщений: 17
По умолчанию Одномерные массивы

18. Ввести одномерный массив A из N элементов. К четным элементам
массива прибавить значение собственного индекса. Массив вывести до и
после преобразования.
Помогите пожалуйста
_Marchel_ вне форума Ответить с цитированием
Старый 16.11.2015, 17:10   #2
Dvoishnik
Форумчанин
 
Регистрация: 12.02.2011
Сообщений: 808
По умолчанию

Код:
const 
n=12;
var 
a: array [1..n] of integer;
i:integer;
...................
For i:=1 to n do 
 if (a[i] mod 2) = 0 then 
  a[i]:=a[i]+i; 
............
Терпение!Дежурный экстрасенс скоро свяжется с вами!
Dvoishnik вне форума Ответить с цитированием
Старый 26.11.2015, 17:01   #3
_Marchel_
Пользователь
 
Регистрация: 14.11.2015
Сообщений: 17
По умолчанию

Цитата:
Сообщение от Dvoishnik Посмотреть сообщение
Код:
const 
n=12;
var 
a: array [1..n] of integer;
i:integer;
...................
For i:=1 to n do 
 if (a[i] mod 2) = 0 then 
  a[i]:=a[i]+i; 
............
спасибо большое
_Marchel_ вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Одномерные массивы Ohayo Помощь студентам 1 23.02.2014 14:10
Одномерные массивы, двумерные массивы, строки Sand093 C++ Builder 11 20.05.2012 21:48
МАССИВЫ (ОДНОМЕРНЫЕ) M@ri Помощь студентам 1 18.12.2011 17:37
одномерные массивы в С++ kseshenka Помощь студентам 4 28.10.2010 00:19
Даны одномерные массивы А и В. Сформировать массивы, состоящие из элемент LyaLya Помощь студентам 15 20.12.2009 14:12