PROGRAM7206.BAS

{* Задачи *}

{ Выберите программу или раздел при помощи графического манипулятора «Мышь» ! }
Case User Of
  •  'Задача60' : Uses zadach60.pas; { Сформировать диагональную матрицу M(N, N) на основе вектора V(N). ... }
  •  'Задача61' : Uses bzadach61.pas; { Сформировать вектор V(20). Определить количество элементов, образующих самую длинную, упорядоченную по возрастанию (1) (убыванию (2)), последовательность. ... }
  •  'Задача62' : Uses bzadach62.pas; { Сжать вектор V(20), удалив из него все повторяющиеся элементы. ... }
  •  'Задача63' : Uses bzadach63.pas; { Поменять местами четные и нечетные элементы вектора V(N), где N - четное число ... }
  •  'Задача64' : Uses bzadach64.pas; { Составить программу для вычисления суммы всех нечетных элементов массива. ... }
  •  'Задача65' : Uses bzadach65.pas; { Заменить нечетные элементы на 0. ... }
  •  'Задача66' : Uses zadachb66.pas; { Дан массив целых чисел X(n).Вывести номера тех элементов массива, которые являются простыми числами.Исходный массив элементов получить с помощью датчика случайных чисел. ... }
  •  'Задача67' : Uses zadachb67.pas; { Сформировать квадрат, закрашенный разными цветами с обеих сторон, вращающийся вокруг вертикальной оси, расположенной в середине экрана. ... }
  •  'Задача68' : Uses zadach68.pas; { В двухмерном массиве чисел все отрицательные элементы массива увеличить на среднее арифметическое значение положительных элементов соответствующей строки. ... }
  •  'Задача69' : Uses zadach69.pas; { В двумерном массиве размерностью NxN заполнить единицами нижнюю половину (включая среднюю строку, если N - нечетное число), за исключением элементов, расположенных правее ... }
  •  'Задача7' : Uses mzadach7.pas; { Дана целочисленная матрица A(N, N). Определить, имеются ли среди её элементов, лежащих ниже главной диагонали, отрицательные числа. ... }
  •  'Задача70' : Uses zadach70.pas; { Составить программу для вычисления произведения всех элементов массива, имеющий индекс кратный 3. ... }
  •  'Задача72' : Uses zadach72.pas; { Составьте программу меняющую местами значения элементов массива А(N,M) симметрично относительно побочной диагонали ... }
  •  'Задача73' : Uses zadach73.pas; { Подсчитать и вывести среднее арифметическое элементов массива,оканчивающихся нулем ... }
  •  'Задача74' : Uses zadach74.pas; { Определить для массива X(n) алгебраические суммы четных и нечетных элементов массива. Вывести исходный массив и полученные значения. Упорядочить массив X(n) по возрастани ... }
  •  'Задача75' : Uses zadach75.pas; { Задан массив натуральных чисел размером 30 элементов. Опишите на русском языке или одном из языков программирования алгоритм получения из него другого массива, который бу ... }
  •  'Задача76' : Uses zadach76.pas; { Написать и протестировать функцию, переставляющую в обратном порядке элементы главной диагонали квадратной матрицы. ... }
  •  'Задача76' : Uses zadach76.pas; { Осуществите циклический сдвиг компонент заданного вектора a(n) вправо на две позиции , т.е получите вектор a=(An-1 ,An, A1, A2,A3, ...,An-2) ... }
  •  'Задача77' : Uses zadach77.pas; { Составьте программу подсчета строк двухмерного массива А(N, M), в которых имеется хотя бы один нулевой элемент. ... }
  •  'Задача78' : Uses zadach78.pas; { Включить дополнительный элемент в к-ую позицию и сформировать новый массив размером n+1 ... }
  •  'Задача79' : Uses zadach79.pas; { Дан массив A(N, N), состоящий из случайных чисел от 1 до 9. Вывести сам массив, а также сумму элементов главной и второстепенной диагонали. ... }
  •  'Задача8' : Uses zadach8.pas; { Дана целочисленная матрица A(N, M). Определить, встречается ли заданное целое K среди максимальных элементов столбцов этой матрицы ... }
  •  'Задача80' : Uses zadach80.pas; { Дан массив A(N,N), состоящий из случайных чисел от 10 до 20. Вывести сам массив и среднее арифметическое элементов массива, находящихся в правом треугольнике. ... }
  •  'Задача81' : Uses zadach81.pas; { Дан массив A(N, M), состоящий из случайных двухзначных чисел. Вывести сам массив и количество элементов, кратных 3., а также минимальный элемент массива. ... }
  •  'Задача83' : Uses zadach83.pas; { Создать массив A(N, N)), состоящий из случайных чисел от 1 до 9. Вывести массив. Найти S=(X+Y)/10, где X - номер столбца, содержащего максимальный элемент массива, Y – су ... }
  •  'Задача84' : Uses zadach84.pas; { Дан массив A (6, 6), состоящий из случайных трехзначных чисел. Поменять местами максимальный и минимальный элемент массива. ... }
  •  'Задача85' : Uses zadach85.pas; { Дан массив A(N, N), состоящий из случайных двухзначных чисел. Поменять в массиве первую строку со строкой, содержащей максимальный элемент. ... }
  •  'Задача86' : Uses zadach86.pas; { Дан массив A(N, N), состоящий из случайных двухзначных чисел. Поменять в массиве последний столбец со столбцом, содержащим минимальный элемент. ... }
  •  'Задача87' : Uses zadach87.pas; { Дана матрица A(N, N), состоящая из чисел от 10 до 50. Заменить все элементы нижнего треугольника нулями. Транспонировать матрицу. ... }
  •  'Задача88' : Uses zadach88.pas; { Отсортировать строки массива A(N, M) из случайных чисел от 10 до 25 по убыванию элементов. ... }
Else
 writeln('Ничего не выбрано!');
End;REM basic