Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/9: Рейтинг темы: голосов - 9, средняя оценка - 4.67
Macheda

Записать в массив У сначала все элементы с чётными, а затем с нечётными индексами

03.03.2010, 23:55. Показов 1839. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Исходный массив вещественого типа ,Записать в массив У сначала все элементы с чётными, а затем с нечётными индексами.Спасибо заранее
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
03.03.2010, 23:55
Ответы с готовыми решениями:

Вывести в первую строку все элементы массива с чётными индексами, во вторую - с нечётными
Помогите написать данную программу: Дан массив из 10 целых чисел(задаётся пользователем),нужно вывести на экран в первую строку все...

Переписать элементы одномерного массива с чётными индексами в один массив, а с нечётными - в другой
Переписать положительные(отрицательные) элементы массива с четными индексами в массив T,а с нечетными-в массив D.

Записать в массив сначала все положительные числа, затем все остальные, сохраняя порядок
Привет.Помогите решить данную задачу;( Дан массив из N целых чисел. Записать в этот же массив сначала все положительные числа, затем...

1
Retired
7727 / 2559 / 671
Регистрация: 17.10.2009
Сообщений: 5,100
04.03.2010, 00:13
Лучший ответ Сообщение было отмечено как решение

Решение

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
25
26
27
uses
  Crt;
const
  N = 5;
var
  a,y:array [1..N] of real;
  i: integer;
begin
  ClrScr;
  Randomize;
  WriteLn('Èñõîäíûé ìàññèâ A:');
  for i := 1 to n do
  begin
    a[i]:=random(8)-4;
    if odd(i) then
      y[(N div 2) + (i div 2) + 1] := a[i]
    else
      y[i div 2] := a[i];
    Write(a[i], ' ')
  end;
  WriteLn;
  WriteLn('Ïîëó÷åííûé ìàññèâ Y:');
  for i := 1 to N do
    Write(y[i], ' ');
  WriteLn;
  ReadLn
end.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
04.03.2010, 00:13
Помогаю со студенческими работами здесь

Массив. Переставить элементы массива так, чтобы сначала располагались все нули, затем все единицы
Тема Одномерные массивы В массиве X(1:n) каждый элемент равен 0, 1 или 5. Переставить элементы массива так, чтобы сначала располагались...

Переставить элементы массива так, чтобы сначала располагались все 0, затем 1, затем 2
Общие указания при составлении программ к данной теме: 1. Размер массива задать константой в блоке описания. 2. Массив заполнить...

Дан массив целых чисел, содержащий 10 элементов. Составить новый массив, записать в него сначала все положительные элементы исходного массива
, потом все отрицательные элементы, потом нули... Да прибудет с вами сила...

Ввести с клавиатуры массив из n чисел (n задать const) Вывести на экран нечётные элементы с чётными индексами
Помогите пожалуйста решить задачу. Ввести с клавиатуры массив из n чисел (n задать const) Вывести на экран нечётные элементы с чётными...

Определить сумму элементов с чётными индексами и сумму элементов с нечётными индексами.
Дан целочисленный массив, состоящий из 12 элементов. Определить сумму элементов с чётными индексами и сумму элементов с нечётными индексами.


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image
8Observer8 10.02.2026
Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .
Установка Qt-версии Lazarus IDE в Debian Trixie Xfce
volvo 10.02.2026
В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer
8Observer8 08.02.2026
Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru