PROGRAM7206.BAS

{* Задачи *}

{ Выберите программу или раздел при помощи графического манипулятора «Мышь» ! }
Case User Of
  •  'zadach93' : Uses Задача93.pas; { Даны квадратные матрицы А,В,С порядка 2. Получить матрицу D элементы которой ровны dij=(aij+bij)*cij a= 2 4 8 6; b= 1 18 0 3; c= 4 9 5 12 ... }
  •  'Задача1' : Uses mzadach1.pas; { В заданной матрице A(N, M) поменять местами строки с номерами P и Q (1 <= P <= N, 1 <= Q <= N). ... }
  •  'Задача10' : Uses zadach10.pas; { Найти сумму положительных элементов одномерного массива ... }
  •  'Задача100' : Uses zadach100.pas; { Просмотрев все числа от -115 до 224 записать в массив те из них которые кратны. Распечатать полученный массив ... }
  •  'Задача101' : Uses zadach101.pas; { Составьте программу вычисления произведния ненулевых элементов одномерного массива А(N), встречающихся в этом массиве ровно один раз ... }
  •  'Задача102' : Uses zadach102.pas; { Составьте программу, определяющую чаще всего встречающийся элемент данного массива B(N). ... }
  •  'Задача103' : Uses zadach103.pas; { Составьте программу, проверяющую, есть ли в одномерных массивах A(T), B(T) одинаковые элементы, и отыскивающую среди них наибольший, если названные элементы в массивах пр ... }
  •  'Задача104' : Uses zadach104.pas; { Поиск количества простых чисел в заданном целочисленном массиве из 50 элементов ... }
  •  'Задача105' : Uses zadach105.pas; { Поиск количества минимальных элементов в заданном целочисленном массиве из 50 элементов ... }
  •  'Задача106' : Uses zadach106.pas; { Найти сумму всех элементов массива целых чисел, удовлетворяющих условию: остаток от деления на 2 равен 3. ... }
  •  'Задача107' : Uses zadach107.pas; { Пусть дана действительная матрица размером N x M. Требуется преобразить матрицу: поэлементно вычесть последнюю строку из всех строк, кроме последней. ... }
  •  'Задача108' : Uses zadach108.pas; { Своими цифрами в массивах K(M) и L(N) заданы 2 целых числа в p-ичной системе счисления(p<=10)Найти в таком же виде их сумму, не вычисляя самих чисел. ... }
  •  'Задача109' : Uses zadach109.pas; { Найти сумму элементов массива, больших квадрата первого элемента этого массива. ... }
  •  'Задача11' : Uses zadach11.pas; { Найти число положительных элементов одномерного массива ... }
  •  'Задача110' : Uses zadach110.pas; { Поменять местами положительные и отрицательные числа в массиве ... }
  •  'Задача111' : Uses zadach111.pas; { Дана квадратная матрица 6х6. Найти количество чисел <7.5 среди элементов матрицы, лежащих выше главной диагонали. Найти столбец, в котором разность среднего арифметиче ... }
  •  'Задача112' : Uses zadach112.pas; { Дан массив чисел Q(1051). Вычислить среднее арифмитическое значение нечетных элементов кратных 7, расположенных после первого встретившегося такого элемента и до конца ма ... }
  •  'Задача113' : Uses zadach113.pas; { Дана матрица С(X, Y). Найти в каждом столбце максимальный элемент и записать его в новую последовательность А(Y). ... }
  •  'Задача114' : Uses zadach114.pas; { Двухмерные массивы. Минимальный элемент на пересечении строк и столбцов ... }
  •  'Задача115' : Uses zadach115.pas; { Дана матрица a(n,n). Перепишите элементы её главной диагонали в одномерный массив y(n) и разделите их на максимальный элемент главной диагонали. Все переменные должны бат ... }
  •  'Задача117' : Uses zadach117.pas; { В массиве целых чисел с колличеством элементов n найти наиболее часто встречающееся число. Если таких чисел несколько, то определить наименьшее из них. ... }
  •  'Задача118' : Uses zadach118.pas; { Вычислить сумму и количество положительных и отрицательных эле- ментов массива D(n), установить каких (положительных или отрица- тельных) элементов больше. ... }
  •  'Задача119' : Uses zadach119.pas; { Дан массив из целых чисел Cij, i=1,5; j=1,5. Найти минимальный положительный и максимальный отрицательный элементы матрицы, заменив их элементом, стоящим на пересечении д ... }
  •  'Задача12' : Uses zadach12.pas; { Найти количество К нулевых элементов массива А и номера строк N, в которых они размещаются ... }
  •  'Задача120' : Uses zadach120.pas; { Дана матрица, состоящая из целых чисел Сij, где i=1, 6; j=1, 6. Записать числа, стоящие в первой строке в первый столбец, вторую строку во второй столбец, и т.д. ... }
  •  'Задача121' : Uses zadach121.pas; { Имеется массив А из N произвольных чисел, среди которых есть положительные, отрицательные и равне нулю. Напечатать числа из массива, которые образуют растущую последовате ... }
  •  'Задача122' : Uses zadach122.pas; { Найти максимальный и минимальный элемент в массиве. Напечатать элементы между максимальным и минимальным элементом. ... }
  •  'Задача123' : Uses zadach123.pas; { Найти последний положительный элемент в массиве A(N). ... }
  •  'Задача124' : Uses zadach124.pas; { Дан массив действительных чисел. Среди них есть равные. Найти первый максимальный элемент массива и заменить его нулем. ... }
  •  'Задача125' : Uses zadach125.pas; { Даны действительные числа a1,a2,...,an. Среди них есть положительные и отрицательные. Заменить нулями те числа, величина которых по модулю больше максимального числа (|ai ... }
Else
 writeln('Ничего не выбрано!');
End;REM basic