Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal ABC Задача на массивы https://www.cyberforum.ru/ pascalabc/ thread407371.html Дана точка A и мнежество B из N точек. Найти номер точки из множества B наиболее близкой от точки A	Задача на строки Pascal ABC Дана строка символов,содержащая хотя бы два двоеточия. Необходимо вывести на экран все символы рассположенные между первым и вторым двоеточием
Pascal ABC задача.Файлы https://www.cyberforum.ru/ pascalabc/ thread407355.html 1).Записать в файл последовательного доступа N вещественных чисел. Вычислить произведение компонентов файла и вывести на печать 2).В файле содержатся данные о фамилиях студентов и их колличестве. Первоначально колличество во всех записях равно 1. Откорректировать файл, убрав повторяющиеся фамилии и увеличить соответствующим образом поле "колличество" в файле	Pascal ABC Нарисовать правильный двухцветный паркет по универсальному алгоритму Нарисовать правильный двухцветный паркет по универсальному алгоритму. (паркет выглядит как сложенные между собой шестиугольники двух цветов https://www.cyberforum.ru/ pascalabc/ thread407352.html
Отсортировать каждую строку в алфавитном порядке Pascal ABC 1) имеются данные об успеваемости не более чем 24 учебных групп( в процентах). определить на сколько нужно повысить успеваемость в самой отстающей группе чтобы достичь среднего уровня успеваемости. 2) дана матрица MxN состоящая из латинских букв. Отсортировать каждую строку в алфавитном порядке.Запрещено создавать темы с множеством вопросов во всех разделах, кроме разделов платных услуг. Один...	Pascal ABC Подсчитать сумму расстояний от точек до начала координат заданы координаты трех точек. подсчитать сумму их расстояний до начала координат . использовать подпрограмму https://www.cyberforum.ru/ pascalabc/ thread407324.html
Pascal ABC Задачка по поскаля, помогите срочно пжл https://www.cyberforum.ru/ pascalabc/ thread407323.html Напишите прогу, пожалуйста: Дан массив А размера N(N - четное число).Вывести его элементы с четными номерами в порядке возрастания номеров: A2,A4,A6,...,An. Условный оператор не использовать.	Удаление в АВЛ дереве и Сортировка вычёрпыванием Pascal ABC вообщем добавление и вывод в авл дерево я смог сделать,но процедуру которое удаляет все листья АВЛ–дерева, попадающие в заданный диапазон значений не как не выходит. Помогите пожайлуста cделать её. uses crt; type TKey = integer; TBalance = -1..1; AVLTree = ^AVLNode; AVLNode = record left, right: AVLTree;
Pascal ABC Составить программу ввода матрицы С, не используя клавиатуру https://www.cyberforum.ru/ pascalabc/ thread407317.html Составить программу ввода матрицы С, не используя клавиатуру Вот матрица: 1 2 3 4 5 6 0 1 2 3 4 5 0 0 1 2 3 4	Pascal ABC Как создать .exe из .pas ? https://www.cyberforum.ru/ pascalabc/ thread407313.html Как создать .exe из .pas ?(в ABC pascal)
Pascal ABC Метод Адамса. Нужно написать две программы для решения оду: Явный метод Адамса и Неявный метод Адамса, очень срочно!!!плиз!!!	Pascal ABC Определить, сколько раз в строке встречается заданное слово Помогите пожалуйста написать программу. Вот задание: Задано слово. Определить сколько раз в строке это слово встречается. https://www.cyberforum.ru/ pascalabc/ thread407304.html

Cyborg Drone

Модератор

9855 / 5225 / 3304

Регистрация: 17.08.2012

Сообщений: 15,986

18.01.2018, 18:01

Вывести элементы массива с четными номерами в порядке возрастания номеров - Pascal ABC - Ответ 12042397

18.01.2018, 18:01. Показов 9562. Ответов 3

Метки (Все метки)

Ответ

Программа содержит ошибку в строке 14: нельзя модифицировать параметр цикла внутри цикла.

Исправленный вариант программы, с контролем ввода и улучшенным интерфейсом:

Pascal

const
  m = 100;
 
var
  a: array[1..m] of integer;
  n, i: integer;
 
begin
  repeat
    write('Введите количество элементов, чётное число в диапазоне [2..', m, ']: ');
    readln(n)
  until (n in [2..m]) and not odd(n);
  writeln('Введите элементы:');
  for i := 1 to n do
    begin
      write('A[', i, '] = ');
      readln(a[i])
    end;
  writeln('Элементы с чётными номерами:');
  for i := 1 to n div 2 do write(a[i * 2], ' ');
  readln
end.

Вернуться к обсуждению:
Вывести элементы массива с четными номерами в порядке возрастания номеров Pascal ABC

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

18.01.2018, 18:01

Готовые ответы и решения:

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

Вывести элементы с нечетными номерами в порядке возрастания номеров, а затем - элементы с четными номерами в порядке убывания номеров
Дан массив A размера N. Вывести вначале его элементы с нечетными номерами в порядке возрастания...

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

Вывести сначала элементы с нечетными номерами по возрастанию номеров, а потом элементы с четными номерами по убыванию
Даний масcив A розмером N. Вивести сначала его элементы с непарными номерами в порядке...

	18.01.2018, 18:01

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

18.01.2018, 18:01

Помогаю со студенческими работами здесь

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

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

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

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

Наверх