PROGRAM7206.BAS

{* Задачи *}

{ Выберите программу или раздел при помощи графического манипулятора «Мышь» ! }
Case User Of
  •  'Задача89' : Uses zadach89.pas; { Отсортировать столбцы массива A(N, M) из случайных чисел от 10 до 50 по убыванию элементов. ... }
  •  'Задача9' : Uses zadach9.pas; { Cформировать массив Y(1)=X(1)+X(N), Y(2)=X(2)+X(N-1), Y(3)=X(3)+ X(N-2) и.т.д (N – четное); ... }
  •  'Задача91' : Uses zadach91.pas; { Составьте программу, меняющую значение элемента двухмерного массива А(N, N) на сумму окружающих элементов. ... }
  •  'Задача92' : Uses zadach92.pas; { Составьте программу вычисления суммы положительных элементов двухмерного массива A(N, M), принадлежащих интервалу (K, T). ... }
  •  'Задача93' : Uses zadach93.pas; { Составьте программу подсчёта строк двумерного массива А(N, N), в которых имеются два нулевых элемента. ... }
  •  'Задача94' : Uses zadach94.pas; { Найти сумму всех элементов массива вещественных чисел, больших заданного числа. ... }
  •  'Задача95' : Uses zadach95.pas; { Определить номера строк матрицы с чередующимся знаком ... }
  •  'Задача96' : Uses zadach96.pas; { Массив разделить на диагональный элемент ... }
  •  'Задача97' : Uses zadach97.pas; { Составьте программу вычисления суммы элементов массива А(N), что одновременно встречаются в массивах ... }
  •  'Задача98' : Uses zadach98.pas; { Сформировать квадратную матрицу (15,15) следующего вида: 1 1 1 . . 1 1 2 2 . . 2 1 2 3 . . 3 . . . . . . . . . . . . 1 2 3 . . 15 ... }
  •  'Задача99' : Uses zadach99.pas; { С клавиатуры вводится размерность одномерного массива. С помощью генератора случайных чисел заполнить массив целыми числами из [-100;100] и сообщить количество элементов ... }
  •  'Задачча19' : Uses zadach19.pas; { Возвести положительные элементы одномерного массива в 3-ю степень, а не-положительные - в 5-ю степень ... }
  •  'Задачча39' : Uses zadach39.pas; { Дана матрица A=[aij] размерности m на n. Удалить из матрицы строку с заданным номером k. Все строки, начиная с k+1 нужно переместить вверх. Число строк уменьшится на 1 ... }
Else
 writeln('Ничего не выбрано!');
End;REM basic