PROGRAM7206.BAS

{* Задачи *}

{ Выберите программу или раздел при помощи графического манипулятора «Мышь» ! }
Case User Of
  •  'Задача126' : Uses zadach126.pas; { Дана последовательность действительных чисел a1<_ a2<_...<_ an. Вставить действительное число b в нее так, чтобы последовательность осталась неубывающей. ... }
  •  'Задача127' : Uses zadach127.pas; { Написать сумму трех максимальных элементов массива. ... }
  •  'Задача128' : Uses zadach128.pas; { Сформулировать из 8 натуральных случайных чисел в диапозоне от -10 до 10.найти кол-во положительных элементов массива и их сумму. ... }
  •  'Задача129' : Uses zadach129.pas; { Вычислить количество отрицательных элементов каждого столбца матрицы ... }
  •  'Задача13' : Uses zadach13.pas; { Найти максимальное значение из отрицательных элементов массива ... }
  •  'Задача130' : Uses zadach130.pas; { Найти максимальный элемент среди минимальных элементов строк двумерного массива ... }
  •  'Задача131' : Uses zadach131.pas; { Дан массив B(N). Удалить из него минимальный элемент и сдвинуть все оставшиеся елементы на одну позицию влево. ... }
  •  'Задача132' : Uses zadach132.pas; { Дана матрица N x N, состоящая из натуральных чисел. Зеркально отразить ее элементы относительно главной диагонали. Вывести результат на экран. ... }
  •  'Задача133' : Uses zadach133.pas; { Дана матрица N x N, состоящая из натуральных чисел. Сформировать одномерный массив из: а) сумм каждого столбца матрицы; б) минимальных значений элементов каждой строки ... }
  •  'Задача134' : Uses zadach134.pas; { Дана матрица N x N, состоящая из натуральных чисел. Повернуть ее на 90 градусов по часовой стрелке и вывести результат на экран. ... }
  •  'Задача135' : Uses zadach135.pas; { В одномерном массиве найти номер третьего чётного элемента. ... }
  •  'Задача136' : Uses zadach136.pas; { Даны два массива А и В по 20 элементов в каждом. Поменять местами элементы массива А, имеющие нечетный индекс, на элементы массива В, имеющие четный индекс, и найти миним ... }
  •  'Задача137' : Uses zadach137.pas; { Дан массив v1,...,v10. Если среди первых пяти элементов есть отрицательные числа то заменить элементы с шестого по 10 на среднее арифметическое всего ряда. ... }
  •  'Задача138' : Uses zadach138.pas; { В массиве заменить элементы с чётными номерами суммой нечётных элементов ... }
  •  'Задача139' : Uses zadach139.pas; { Первую половину элементов главной диагонали квадратной матрицы по возрастанию, вторую по убыванию ... }
  •  'Задача14' : Uses zadach14.pas; { Найти число неотрицательных и отрицательных элементов одномерного массива ... }
  •  'Задача140' : Uses zadach140.pas; { Вычислить среднюю геометрическую положительных элементов массива R(m). Массив R(m) вывести на печать. ... }
  •  'Задача141' : Uses zadach141.pas; { Дана матрица N*M. Переставить местами строки с четными и нечетными номерами. ... }
  •  'Задача142' : Uses zadach142.pas; { В целочисленной последовательности есть нулевые элементы. Создать массив из номеров этих элементов ... }
  •  'Задача143' : Uses zadach143.pas; { Развернуть обе половинки массива в обратном порядке. считать, что массив имеет четное число элементов ... }
  •  'Задача144' : Uses zadach144.pas; { Дан массив из 12-ти чисел. найти сумму чисел данного массива, расположенных после последнего числа, большего 41. ... }
  •  'Задача145' : Uses zadach145.pas; { Дан массив из 14 элементов. Найти сумму элементов равных по абсолютной величине 19. ... }
  •  'Задача146' : Uses zadach146.pas; { С помощью генератора случайных чисел (RND) создать и вывести на экран массив А 5x5 случайных действительных чисел в диапазоне от 2 до 4. Определить по А и вывести диагона ... }
  •  'Задача147' : Uses zadach147.pas; { Дана матрица из 3 строк и 4 столбцов. Найти сумму элементов этой матрицы по абсолютной величине больших 17. ... }
  •  'Задача148' : Uses zadach148.pas; { В квадратной матрице поменять местами 1-й и 2-й столбцы. ... }
  •  'Задача149' : Uses zadach149.pas; { Дан Массив из 12 элементов ,Найти кол-во элементов массива после последнего элемента равного 17 ... }
  •  'Задача15' : Uses zadach15.pas; { Найти сумму и число неотрицательных и отрицательных элементов одномерного массива ... }
  •  'Задача150' : Uses zadach150.pas; { Дан массив из 10 элементов.найти количество элементов массива до первого элемента равного 111. ... }
  •  'Задача151' : Uses zadach151.pas; { Дана матрица из 3-х строк и 2-х столбцов. Найти сумму элементов 2-го столбца матрицы. ... }
  •  'Задача152' : Uses zadach152.pas; { Вычислить сумму двух заданных матриц размером 3*3. ... }
Else
 writeln('Ничего не выбрано!');
End;REM basic