С Новым годом! Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.53/34: Рейтинг темы: голосов - 34, средняя оценка - 4.53
0 / 0 / 0
Регистрация: 28.10.2010
Сообщений: 13

Вывести все элементы массива с четными индексами

10.03.2011, 19:44. Показов 7131. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Нужна помощь:
Сначала задано число N - количество элементов в массиве. Далее через пробел записаны N чисел - элементы массива.
Необходимо вывести все элементы массива с четными индексами.


Вообщем-то не очень сложно, но то-ли я туплю, то-ли ещё что, вообщем как задать количество элементов массива в теле программы, если его (количество) можно задать только через const ещё до var'a?Или это невозможно и я просто неправильно понял условия?
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
10.03.2011, 19:44
Ответы с готовыми решениями:

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

Все элементы массива с четными индексами умножить на 2
1)Заданы переменные b, c, w. Если b > c вычислить и напечатать a=sin 1.2+tgx+x/2tg^(2) x , где w-п при п/2<=w<=3п/4...

Вывести все элементы массива с четными индексами
1 задача: Сначала задано число N - количество элементов в массиве. Далее через пробел записаны N чисел - элементы массива.Необходимо...

2
 Аватар для kofee"k
109 / 109 / 91
Регистрация: 08.01.2011
Сообщений: 171
10.03.2011, 20:34
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program tt;
uses crt;
var
  m:array[1..100] of integer;
  n,i:integer;
begin
  ClrSCr;
  writeln('Размер');
  readln(n);
  writeln('Элементы массива(n<=100)');
  for i:=1 to n do begin
    m[i]:=random(40)-20;
    write(m[i],' ');
  end;
  writeln;
  writeln('Элементы с четными индексами:');
  for i:=1 to n do
    if i mod 2=0 then
      write(m[i],' ');
  readln;
end.
0
Mobile Software Engineer
Эксперт С++
 Аватар для Ev[G]eN
5381 / 1585 / 956
Регистрация: 23.01.2011
Сообщений: 3,214
10.03.2011, 20:44
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var
 arr: array[1..100] of integer;
 i, n: integer;
begin
 readln(n);
  for i:=1 to n do
   begin
    read(arr[i]);
     if i mod 2=0 then
      write(arr[i], ' ');
   end;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
10.03.2011, 20:44
Помогаю со студенческими работами здесь

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

Сформировать два массива, включая в первый четные элементы исходного массива с нечетными индексами, а во второй нечетные элементы с четными индексами
Задан массив размером K. Сформировать два массива, включая в первый четные элементы исходного массива с нечетными индексами, а во второй...

Вывести вначале элементы массива с четными индексами, а затем - с нечетными.
1. Дан массив размера N. Вывести вначале его элементы с четными индексами, а затем - с нечетными. 2. Багаж пассажира характеризуется...

Программа, которая элементы с чётными индексами удваивает, а элементы с нечётными индексами утраивает
Составьте программу, которая заполняет массив a случайными целыми числами в диапазоне от 1 до 10, затем элементы с чётными индексами...

Отсортируйте отдельно элементы с четными индексами по возрастанию, и элементы с нечетными индексами по убыванию
Массив содержит 20 целых чисел. Отсортируйте отдельно элементы с четными индексами по возрастанию, и элементы с нечетными индексами по...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Изучаю kubernetes
lagorue 13.01.2026
А пригодятся-ли мне знания kubernetes в России?
Сукцессия микоризы: основная теория в виде двух уравнений.
anaschu 11.01.2026
https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/
WordPad для Windows 11
Jel 10.01.2026
WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .
Classic Notepad for Windows 11
Jel 10.01.2026
Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .
Почему дизайн решает?
Neotwalker 09.01.2026
В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
Модель микоризы: классовый агентный подход 3
anaschu 06.01.2026
aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR
ФедосеевПавел 06.01.2026
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .
Модель микоризы: классовый агентный подход 2
anaschu 06.01.2026
репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru