PROGRAM6198.PAS

{* Одномерные массивы *}

{ Выберите программу или раздел при помощи графического манипулятора «Мышь» ! }
Case User Of
  •  'Cамый часто встречающийся элемент в массиве' : Uses spl15.pas; { Печать самого часто встречающегося элемента в массиве ... }
  •  'Второй по величине максимальный элемент' : Uses pasmax20.pas; { Нахождение второго по величине максимального (минимального) значения в массиве ... }
  •  'Задача 1' : Uses zadah1.pas; { Для N>0 наполнить и вывести целочисленный массив размера N, содежащий N положительных нечетных чисел: 1, 3, 5... ... }
  •  'Задача 10' : Uses zadah10.pas; { Дан массив размера N. Вывести четные числа в порядке возрастания их индексов, а затем - все нечетные числа в порядке убывания их индексов ... }
  •  'Задача 11' : Uses zadah11.pas; { Дан массив размера A размера N и целое число K(1≤K≤N). Вывести элементы массива с порядковыми номерами, кратными K ... }
  •  'Задача 12' : Uses zadah12.pas; { Дан массив размера N. Вывести его элементы с четными номерами в порядке возрастания номеров без использования условного оператора ... }
  •  'Задача 13' : Uses zadah13.pas; { Дан массив размера N. Вывести его элементы с нечетными номерами в порядке возрастания номеров без использования условного оператора ... }
  •  'Задача 14' : Uses zadah14.pas; { Дан массив размера N. Вывести вначале его элементы с четными номерами в порядке возрастания номеров, а затем элементы с нечетными номерами (в порядке возрастания номеров) ... }
  •  'Задача 15' : Uses zadah15.pas; { Дан массив размера N. Вывести вначале его элементы с нечетными номерами в порядке возрастания номеров, а затем элементы с четными номерами в порядке убывания номеров ... }
  •  'Задача 16' : Uses zadah16.pas; { Дан массив размера A размера N вывести его элементы в порядке: A1, AN, A2, AN-1, A3, AN-2, … ... }
  •  'Задача 17' : Uses zadah17.pas; { Дан массив размера A размера N вывести его элементы в порядке: A1, A2, AN, AN-1 A3, A4, AN-2, AN-3, … ... }
  •  'Задача 18' : Uses zadah18.pas; { Дан массив размера A ненулевых целых чисел размера 10. Вывести значение первого из тех его элементов, которые удовлетворяют условию: AK<A10. Если нет, то вывести 0 ... }
  •  'Задача 19' : Uses zadah19.pas; { Дан массив размера A размера N не содержащий одинаковых чисел. Проверить, образуют ли его элементы арифметическую прогрессию. Если образуют то вывести разность прогресси ... }
  •  'Задача 2' : Uses zadah2.pas; { Для N>0 наполнить и вывести целочисленный массив размера N, содежащий степени двойки от первой до N-й 2, 4, 8... ... }
  •  'Задача 20' : Uses zadah20.pas; { В массиве размера N из ненулевых целых чисел проверить чередуются ли в нем положительные и отрицательные числа. Если чередуются, то вывести 0, если нет, то вывести порядк ... }
  •  'Задача 21' : Uses zadah21.pas; { В массиве A размера N найти минимальный элемент из четных элементов ... }
  •  'Задача 22' : Uses zadah22.pas; { В массиве A размера N найти максимальный элемент из нечетных элементов ... }
  •  'Задача 23' : Uses zadah23.pas; { В массиве размера N найти номера тех элементов массива, которые больше элемента справа и количество таких элементов. Найденные номера вывести в порядке возрастания. ... }
  •  'Задача 24' : Uses zadah24.pas; { В массиве размера N найти номера тех элементов массива, которые больше элемента слева и количество таких элементов. Найденные номера вывести в порядке убывания. ... }
  •  'Задача 25' : Uses zadah25.pas; { В массиве размера N найти номер его первого локального минимума ... }
  •  'Задача 26' : Uses zadah26.pas; { В массиве размера N найти номер его последнего локального максимума ... }
  •  'Задача 27' : Uses zadah27.pas; { В массиве размера N найти максимальный из его локальных минимумов ... }
  •  'Задача 28' : Uses zadah28.pas; { В массиве размера N найти максимальный из его элементов не являющийся ни локальным минимумом ни локальным максимумом, если его нет то вывести о ... }
  •  'Задача 29' : Uses zadah29.pas; { В массиве A размера N для числа R найти элемент массива который наиболее близок к R ... }
  •  'Задача 3' : Uses zadah3.pas; { Для N>1, первого члена A и разности D арифметической прогрессии наполнить и вывести массив размера N, содежащий N первых членов прогрессии: A, A+D, A+2D, A+3D... ... }
  •  'Задача 30' : Uses zadah30.pas; { В массиве размера N найти два соседних элемента, сумма которых максимальна. Вывести их в порядке возрастания. ... }
  •  'Задача 31' : Uses zadah31.pas; { В массиве размера N для числа R найти два соседних элемента, сумма которых наиболее близка к R . Вывести их в порядке возрастания. ... }
  •  'Задача 32' : Uses zadah32.pas; { В массиве размера N найти номера двух ближайших элементов с наименьшим модулем разности. Вывести их в порядке возрастания ... }
  •  'Задача 33' : Uses zadah33.pas; { Элементы одинаковых по размеру массивов A и B поменять местами и вывести сперва преобразованный массив A, а затем B ... }
  •  'Задача 34' : Uses zadah34.pas; { Четные элементы целочисленного массива A записать в массив B. Вывести размер массива B и его содержимое. ... }
Else
 writeln('Ничего не выбрано!');
End;Program pas2245;
Program pas2245..