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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 28.06.2012, 22:00   #1
SoulKeep
Новичок
Джуниор
 
Регистрация: 28.06.2012
Сообщений: 1
Восклицание Дан массив целых чисел (n=12)

Дан массив целых чисел (n=12), заполнить его с клавиатуры:
1) Удалить из него все чётные элементы;
2) Вставить число k перед и после всех элементов, заканчивающихся на данную цифру (k вводится с клавиатуры);
3) Переставить элементы следующим образом: a[1], a[12], a[2], a[11],...
a[5], a[8], a[6], a[7].
SoulKeep вне форума Ответить с цитированием
Старый 29.06.2012, 00:04   #2
Leshii
Форумчанин
 
Регистрация: 26.07.2011
Сообщений: 376
По умолчанию

3)
Код:

Uses crt;
const n=12;

var
 
   A: array [ 1 .. n ] of integer;
   i, buffer: integer;

begin
clrscr;
randomize;

writeln('Massiv A[i]: ');
for i:=1 to n do begin
     a[i]:=random(10);
     write(a[i]:3);
end;
writeln;
for i:=1 to ( n div 2 ) do begin
     write(a[i]:3,a[n-i+1]:3);
end;

readkey;
end.
или же

Код:
buffer:=a[ i];
a[ i]:=a[n-i+1];
a[n-i+1]:=buffer;
Но первый вариант хитрее =)
Люблю на ты.Я человек простой

Последний раз редактировалось Leshii; 29.06.2012 в 00:30.
Leshii вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Дан массив целых чисел из n элементов MISTER_88 Помощь студентам 4 28.03.2012 17:26
Дан массив из N целых чисел. Получить из него массив чисел по модулю меньших 10 и отсортировать его(язык си++) mitja-zakelidis Помощь студентам 2 15.03.2012 03:10
дан массив А из К целых чисел. amikulia Помощь студентам 1 14.01.2011 12:41
Дан массив целых чисел из n элементов endimion11 Помощь студентам 11 20.04.2010 17:36