PROGRAM7206.BAS

{* Задачи *}

{ Выберите программу или раздел при помощи графического манипулятора «Мышь» ! }
Case User Of
  •  'Задача3' : Uses zadach3.pas; { Подсчитать, сколько раз встречается в заданной целочисленной матрице A(N, M) максимальное по величине число. ... }
  •  'Задача30' : Uses zadach30.pas; { Найти максимальный элемент главной диагонали ... }
  •  'Задача31' : Uses zadach31.pas; { Дана матрица размерности m на n. Получить одномерный массив, состоящий из элементов, делимых на пять ... }
  •  'Задача32' : Uses zadach32.pas; { Дана квадратная матрица порядка n. Найти максимальный элемент побочной диагонали ... }
  •  'Задача33' : Uses zadach33.pas; { Дана матрица A=[aij]. Построить вектор b1, b2, …, bm, компоненты которого равны произведению элементов строк матрицы ... }
  •  'Задача34' : Uses zadach34.pas; { В квадратной матрице найти скалярное произведение строки, в которой находится максимальный элемент матрицы, на столбец с минимальным значением ... }
  •  'Задача36' : Uses zadach36.pas; { Дана матрица A=[aij] размерности m на n. Найти транспонированную матрицу, то есть заменить строки матрицы ее столбцами, а столбцы – строками, т.е. bij=aji ... }
  •  'Задача37' : Uses zadach37.pas; { Дана квадратная матрица A=[aij] порядка n. Найти транспонированную матрицу, то есть заменить строки матрицы ее столбцами, а столбцы – строками, т.е. bij=aji ... }
  •  'Задача38' : Uses zadach38.pas; { Дана квадратная матрица A=[aij] порядка n. Найти транспонированную матрицу, то есть заменить строки матрицы ее столбцами, а столбцы – строками, т.е. bij=aji ... }
  •  'Задача4' : Uses zadach4.pas; { В заданной матрице A(N, M) поменять местами строки с номерами P и Q (1 <= P <= N, 1 <= Q <= N). ... }
  •  'Задача40' : Uses zadach40.pas; { Вставить новое значение в упорядоченный по возрастанию 'массив b(N), так чтобы не нарушилась сортировка. ... }
  •  'Задача41' : Uses zadach41.pas; { Расположить элементы несортированного массива b(N) в следующем порядке: нечетные отрицательные, четные отрицательные, элементы, равные нулю, четные положительные, нечет ... }
  •  'Задача417' : Uses zadach417.pas; { Составить блок-схему алгоритма и программу расчета числа загонов на пастбище по формуле К = П/Ч + О, где П – период, необходимый для отрастания травы на пастбище, дни; ... }
  •  'Задача42' : Uses zadach42.pas; { Заполнить массив B(20) случайными целыми числами в диапазоне (-5, 20). Отсортировать В так, чтобы сначала располагались отрицательные элементы, затем равные нулю и поло ... }
  •  'Задача43' : Uses zadach43.pas; { Удалить столбец под номером colDel из матрицы B(M, N) ... }
  •  'Задача44' : Uses zadach44.pas; { Рассчитать Y = k(M1+M2/2), где k - константа; M1, M2 - матрицы размером (3, 4). ... }
  •  'Задача45' : Uses zadach45.pas; { Умножить матрицу B(M, N) на вектор V(N). ... }
  •  'Задача46' : Uses zadach46.pas; { Посчитать сумму соседей каждого элемента матрицы M. Соседями являются элементы, примыкающие к рассматриваемому элементу по горизонтали и вертикали. Результат представит ... }
  •  'Задача47' : Uses zadach47.pas; { В матрице M определить и поменять местами строки, обладающие максимальной и минимальной суммой элементов. ... }
  •  'Задача48' : Uses zadach48.pas; { В матрице M определить и поменять местами столбцы с наибольшим и наименьшим количеством четных значений. ... }
  •  'Задача49' : Uses zadach49.pas; { В матрице M определить и поменять местами элементы главной и побочной диагоналей. ... }
  •  'Задача51' : Uses zadach51.pas; { Сформировать матрицы А и В одинакового размера. Поменять местами последний столбец матрицы А и первый столбец матрицы В. ... }
  •  'Задача52' : Uses zadach52.pas; { Сформировать векторы V1(8) и V2(5). Вставить V2 в V1 между его 4-м и 5-м элементами. ... }
  •  'Задача53' : Uses zadach53.pas; { В векторе М(N) заполненном на половину, продублировать все элементы с сохранением порядка их следования. ... }
  •  'Задача54' : Uses zadach54.pas; { Вывести на экран две матрицы одновременно в одном цикле. Матрицы расположить рядом друг с другом по горизонтали. ... }
  •  'Задача56' : Uses zadach56.pas; { Записать в обратном порядке матрицу M ... }
  •  'Задача57' : Uses zadach57.pas; { Сформировать матрицы M1(N, N) и М2(N, N). Объединить их в общие матрицы M11(N, 2N) и M22(2N, N). Формирование и объединение провести в одной паре вложенных циклов. ... }
  •  'Задача58' : Uses zadach58.pas; { На базе матрицы М(N, P) сформировать вектор V(P), каждый элемент которого равен произведению соответствующего столбца М. Умножить М на V. ... }
  •  'Задача59' : Uses zadach59.pas; { На базе квадратной матрицы М(n, n) сформировать вектор V(n), каждый элемент которого равен элементам побочной диагонали M. Умножить М на V. ... }
  •  'Задача6' : Uses mzadach6.pas; { Включить заданное число D в массив A(N), упорядоченный по возрастанию, с сохранением упорядоченности. ... }
Else
 writeln('Ничего не выбрано!');
End;REM basic