Sample Code

Задан двухмерный массив A(a_ij), де i=1,2…n , j=1,2…m, элементами которого являются целые числа. Упорядочить информацию в массиве в порядке возрастания.

Заполнить двухмерный массив 5 на 6 по формуле I*I-А*J и подсчитать количество неотрицательных элементов, включая ноль. Коэффициент А запросить с клавиатуры. Написать программу на языке Турбо Паскаль.

Заполнить массив из 12 элементов случайными целыми числами от -100 до 100 и подсчитать количество неотрицательных значений, включая ноль. Написать программу на языке Турбо Паскаль.

Пусть в массиве содержатся результаты измерений температуры воздуха, которые проводились ежедневно в течение декабря месяца. Требуется определить:минимальную температуру второй декады декабря, день, когда температура была ближе всего к средней температуре в декабре.

Для матрицы А (4 строки;5 столбцов) вывести те строки, в которых есть нулевые элементы или вывести сообщение "нет строк с нулевыми элементами". Для проверки наличия нулевых элементов в произвольной строке матрицы использовать процедуру.

Заполнить одномерный целочисленный массив размерности n числами, введёнными с клавиатуры. Вставить после максимального элемента массива число, равное удвоенному максимальному элементу массива (считать, что такой элемент единственный). Распечатать полученный массив.

Заполнить одномерный целочисленный массив размерности n числами, введёнными с клавиатуры. Поменять местами первый и последний отрицательные элементы массива (считать, что отрицательные элементы есть в массиве). Распечатать преобразованный массив.

Дан список случайных целых чисел. Перевернуть список т.е. расставить все числа в обратном порядке. Подсчитать средне арифметическое его элементов. Создать два новых списка в одном из которых записать все элементы > 5, в другой все остальные элементы исходного списка.