PROGRAM7206.BAS

{* Задачи *}

{ Выберите программу или раздел при помощи графического манипулятора «Мышь» ! }
Case User Of
  •  'Задача153' : Uses zadach153.pas; { Составить программу вычисления произведения элементов двумерного массива, больших 10 ... }
  •  'Задача154' : Uses zadach154.pas; { По 2 массивам построить 3-й,элементы которого являются частными от деления элементов первого на соответствующие элементы второго массива.Если делитель ноль,заменить его д ... }
  •  'Задача155' : Uses zadach155.pas; { Помогите пожалуйста написать программу: дана квадратная матрица третьего порядка. Увеличить положительные элементы матрицы в 2ой и 3ей строках в 2 раза ... }
  •  'Задача156' : Uses zadach156.pas; { Даны 3 массива. если элемент третьего массива меньше элементов первого и второго, уменьшить его в двое. В преобразованном массиве найти сумму элементов с 1-го по минималь ... }
  •  'Задача157' : Uses zadach157.pas; { Найти минимальное из средних арифметических 3 массивов. ... }
  •  'Задача158' : Uses zadach158.pas; { Записать в массив С номера положительных элементов массива R ... }
  •  'Задача159' : Uses zadach159.pas; { Упорядочить элементы массива по возрастанию их модулей методом прямого включения. ... }
  •  'Задача16' : Uses zadach16.pas; { Найти произведение элементов одномерного массива ... }
  •  'Задача160' : Uses zadach160.pas; { Заполните одномерный массив из 12 элементов случайным образом и найдите сумму чисел, которые по модулю меньше 6. ... }
  •  'Задача161' : Uses zadach161.pas; { Создать массив, состоящий из произведения элементов матрицы по столбцам ... }
  •  'Задача162' : Uses zadach162.pas; { Дан массив. Поменять местами элементы строки 2-й и элемента a-34 ... }
  •  'Задача163' : Uses zadach163.pas; { Сформируйте матрицу А(7, 3), состоящую из целых случайных чисел от 10 до 167. Определить произведение всех её элементов. ... }
  •  'Задача164' : Uses zadach164.pas; { Вычислить произведение элементов массива, значения которых кратны 3 ... }
  •  'Задача165' : Uses zadach165.pas; { Вводится n, надо получить матрицу n*n, заполненную по диагоналям, например: 1 2 6 3 5 7 4 8 9 ... }
  •  'Задача166' : Uses zadach166.pas; { Измените знак всех чётных елементов массива состоящих из L чисел ... }
  •  'Задача167' : Uses zadach167.pas; { Найти количество нулевых элементов массива R(15) , сформированного с помощью команды RND. распечатать номера нулевых элементов. ... }
  •  'Задача168' : Uses zadach168.pas; { Все отрицательные элементы массива К (11), заменить числом 10 ... }
  •  'Задача17' : Uses zadach17.pas; { Заменить положительные элементы одномерного массива на число t ... }
  •  'Задача18' : Uses zadach18.pas; { Возвести в квадрат каждый элемент массива ... }
  •  'Задача2' : Uses zadach2.pas; { В массиве A(N, N) вычислить две суммы элементов, расположенных ниже и выше главной диагонали. ... }
  •  'Задача20' : Uses zadach20.pas; { Найти максимальный элемент последовательности ... }
  •  'Задача21' : Uses zadach21.pas; { Найти максимальный элемент и его номер в массиве ... }
  •  'Задача22' : Uses zadach22.pas; { Заменить положительные элементы одномерного массива на их сумму ... }
  •  'Задача23' : Uses zadach23.pas; { Даны два одномерных массива. Создайте третий массив, каждый элемент которого равен сумме элементов исходных массивов ... }
  •  'Задача24' : Uses zadach24.pas; { Дан массив а1, а2, …, аn. Найти величину S=S1-S2, где S1 – сумма элементов с четными номерами, S2 – сумма элементов с нечетными номерами ... }
  •  'Задача25' : Uses zadach25.pas; { Записать массив а1, а2, …, аn в обратном порядке ... }
  •  'Задача26' : Uses zadach26.pas; { Дан массив а1, а2, …, аn. Расположить элементы несортированного массива a(n) в следующем порядке: нечетные отрицательные, четные отрицательные, элементы равные нулю, четн ... }
  •  'Задача27' : Uses zadach27.pas; { Дан двумерный массив. Заменить максимальный элемент на число Р ... }
  •  'Задача28' : Uses zadach28.pas; { Найти сумму элементов второй строки двумерного массива ... }
  •  'Задача29' : Uses zadach29.pas; { Найти произведение элементов третьего столбца двумерного массива ... }
Else
 writeln('Ничего не выбрано!');
End;REM basic