Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal замените все элементы с четными идексами максимальным Задайте массив из 10 элементво с помощью датчика случайных чисел. замените все элементы с четными идексами максимальным.выведети на экран исходный и изменненый массив только плиз как можно... https://www.cyberforum.ru/ turbo-pascal/ thread427500.html Ошибка в функции. Turbo Pascal
Всем привет. Исправьте пжл ошибку. Ф-ция принимает линейный однонаправленный список отсортированный по возрастанию. В процессе работы берёт по 2 элемента из этого списка, складывает и присваивает их...
Turbo Pascal Наибольшее значение элемента массива https://www.cyberforum.ru/ turbo-pascal/ thread427461.html
var a:arrayof integer; N, M, i, j :integer; begin write('N, M -> '); readln(N, M); {считываем размер матрицы} write('Input matrix -> '); for i:=1 to N do for j:=1 to M do begin ...
Turbo Pascal Определить сумму элементов последовательности, превышающих X дана последовательность вещественных чисел {a}_{1}{a}_{2}{a}_{3}...{a}_{n} упорядоченная по возрастанию и число Х удовлетворяющее условию {a}_{1}<x<{a}_{1}+1Определить сумму элементов... https://www.cyberforum.ru/ turbo-pascal/ thread427440.html
Одномерный массив и Подпрограмма. Turbo Pascal
На носу экзамен:( Нужно сделать 7 работ и 5 из низ защитить, чтобы допустится до экзамена. Сделал 5 работ и защитил их, остались сделать еще 2е работы, но я не знаю как. В связи с чем обращаюсь к вам...
Turbo Pascal Заполнить массив цифрами числа, расположенными в обратном порядке решите через паскаль выручайте пожалуйста Дано натуральное число n ≤ 999 999.Заполнить массив его цифрами,расположенными в обратном порядке первый элемент равен последней цифре,второй... https://www.cyberforum.ru/ turbo-pascal/ thread427436.html
Turbo Pascal Даны три множества Х1, Х2, Х3 https://www.cyberforum.ru/ turbo-pascal/ thread427435.html
Даны три множества Х1, Х2, Х3, содержащие целые числа из диапазона 1..100. Известно, что мощность каждого из этих множеств равна 10. Сформировать новое множество Y=(X1UX2)\(X2 X3) и вы-вести на экран...
Turbo Pascal Запись. Известны фамилии,адреса и телефоны 25-ти человек. Найти фамилии и адреса людей, чей телефон начинается с цифры 3
1)Известны фамилии,адреса и телефоны 25-ти человек,Найти фамилии и адреса людей,чей телефон начинается с цифры 3. Расмотреть случай: телефон задан в виде семизначного числа.
Turbo Pascal Программа для подготовки к экзамену. Нужна программа для подготовки к экзамену. Суть программы: Составление билетов к экзамену. Из текстового файла Questions.txt (n строк с вопросами к экзамену) нужно вывести m случайных строк. В... https://www.cyberforum.ru/ turbo-pascal/ thread427392.html Turbo Pascal Перестановка букв в каждом втором слове. Удалить из введенного текста каждое второе слово, в оставшихся поменять порядок букв так, чтобы слова были написаны задом на перед "user - resu". https://www.cyberforum.ru/ turbo-pascal/ thread427390.html
Составить блок схему к готовому коду Turbo Pascal
var a: array of integer; i: integer; n: integer; sum: integer; begin randomize; writeln('Введите количество элементов массива: '); readln(n); for i:=1 to n do...
Turbo Pascal построить блок-схему. program z1; var a: array of real; i, j, m, n: integer; begin for i:=1 to 10 do begin for j:=1 to 10 do read(a; end; m:=0; n:=0; https://www.cyberforum.ru/ turbo-pascal/ thread427354.html
85 / 85 / 38
Регистрация: 09.12.2011
Сообщений: 174
13.01.2012, 16:43 0

Вывести вначале элементы массива с нечетными номерами в порядке возрастания номеров, затем - элементы с четными в порядке убывания номеров - Turbo Pascal - Ответ 2383704

13.01.2012, 16:43. Показов 2739. Ответов 2
Метки (Все метки)

Лучший ответ Сообщение было отмечено марина царева как решение

Решение

Что попадает под условие "условный оператор"? Можно использовать конструкцию while и case ?

Добавлено через 21 минуту
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
const
n=11; {размерность массива}
var
a:array[1..n] of integer;
i:integer;
begin
  writeln('ishodny massiv');
  for i:=1 to n do begin a[i]:=random(20); write(a[i]:3); end; {заполняем массив случайными числами}
  writeln;
  writeln('nechetnye nomera');
  i:=1; {начнем с первого элемента}
  while i<=n do
    begin
      write(a[i]:3);
      inc(i,2); {перейдем к следующему нечетному}
    end;
  writeln;
  i:=(n div 2)*2; {последний четный номер}
  writeln('chetnye nomera');
  while i>=2 do
    begin
      write(a[i]:3);
      dec(i,2); {перейдем к предыдущему четному}
    end;
  writeln;
 
end.


Вернуться к обсуждению:
Вывести вначале элементы массива с нечетными номерами в порядке возрастания номеров, затем - элементы с четными в порядке убывания номеров Turbo Pascal
2
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.01.2012, 16:43
Готовые ответы и решения:

Вывести элементы массива с четными номерами в порядке возрастания номеров
решите пожалуйста.Дан массив A размера N (N — четное число). Вывести его элементы с четными...

Вывести его элементы с нечетными номерами в порядке возрастания номеров А2, А4,А6,…А N.
2.Дан целочисленный масив размера N. Удалить из массива все одинаковые элементы, оставив их первые...

Одномерный массив. Вывести его элементы с четными номерами в порядке возрастания номеров
Дан масив А размера N(N-четное число). Вывести его элементы с четными номерами в порядке...

Одномерный массив. Вывести его элементы с четными номерами в порядке возрастания номеров
Дан масив А размера N(N-четное число). Вывести его элементы с четными номерами в порядке...

2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.01.2012, 16:43
Помогаю со студенческими работами здесь

Дан массив. Вывести его элементы с четными номерами в порядке возрастания номеров
Дан масив А размера N(N-четное число). Вывести его элементы с четными номерами в порядке...

Массив. Вывести элеметы с нечётными номерами в порядке убывания номеров
дан массив А размера N (N нечётное число). Вывести его элеметы с нечётными номерами в порядке...

Расставить элементы строк с четными номерами матрицы в порядке убывания
Добрый день всем. Нужна помощь в решении нелегкой (для меня) задачки... Дана матрица A порядка n....

Дана матрица A порядка n. Расставьте элементы строк с четными номерами матрицы в порядке убывания
Дана матрица A порядка n. Расставьте элементы строк с четными номерами матрицы в порядке...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru