1)дана матрица размером m * n. в каждой строке матрицы найти минимальный элемент и максимальный из найденного. 2)дана матрица размерами n * n. поменять местами столбец с максимальным и столбец содержащий минимальное количество нулевых элементов. использовать три процедуры (заполнение, смена, вывод

1)uses crt; const m=5; n=5; var a: array[1..m,1..n] of integer; b: array[1..m] of integer; i,max,min,j,k,p: integer; begin randomize; for i: =1 to m do for j: =1 to n do a[i,j]: =random(20); min: =20; max: =0; for i: =1 to m do begin for j: =1 to n do write(a[i,j]: 3); writeln; end; writeln; k: =1; repeat for i: =k to k do for j: =1 to n do begin if (a[i,j]< min) then begin min: =a[i,j]; b[k]: =a[i,j]; end; end; inc(k); min: =20; until k> n; for p: =1 to m do if (b[p]> max) then max: =b[p]; writeln(max); end. 2)uses crt; const n=5; var a: array[1..n,1..n] of integer; b: array[1..n] of integer; i,j,k,p,t,min,max: integer; begin randomize; for i: =1 to n do for j: =1 to n do a[i,j]: =random(5); for i: =1 to n do begin for j: =1 to n do write(a[i,j]: 3); writeln; end; writeln; k: =1; t: =0; repeat for i: =1 to n do for j: =k to k do if a[i,j]=0 then inc(t); b[k]: =t; t: =0; inc(k); until k> n; min: =5; max: =0; for p: =1 to n do begin if(b[p]> max) then max: =p; if(b[p]< min) and (b[p]< > 0) then min: =p; end; k: =1; repeat for i: =k to k do //for j: =1 to n do begin a[k,min]: =a[k,min]+a[k,max]; a[k,max]: =a[k,min]-a[k,max]; a[k,min]: =a[k,min]-a[k,max]; inc(k); end; until k> n; for i: =1 to n do begin for j: =1 to n do write(a[i,j]: 3); writeln; end; writeln; end.

Program lol (input, output); var i, n, d, sd, s4d, kd, kn4d, k4d, kbd: integer; begin writeln ('введите само число и число d'); read (n, d); writeln ('делители: '); i: =1; sd: =0; s4d: =0; kd: =0; kn4d: =0; k4d: =0; kbd: =0; while i < =n do begin if n mod i = 0 then begin kd: =kd+1; writeln (i); sd: =sd+i; if i > d then kbd: =kbd+1; if i mod 2 = 0 then begin s4d: =s4d+i; k4d: =k4d+1; end else kn4d: =kn4d+1; end; i: =i+1; end; writeln (' '); writeln ('сумма делителей ', sd); writeln ('сумма четных делителей ', s4d); writeln ('количество делителей ', kd); writeln ('количество нечетных делителей ', kn4d); writeln ('количество четных делителей ', k4d); writeln ('количество делителей болеше d ', kbd); end.

Сумма цифр массива

Найти сумму всех цифр целочисленного массива. Например, если дан массив [12, 104, 81], то сумма всех его цифр будет равна 1 + 2 + 1 + 0 + 4 + 8 + 1 = 17.

Найти сумму элементов между минимальным и максимальным элементами массива

В одномерном массиве найти сумму элементов, находящихся между минимальным и максимальным элементами. Сами минимальный и максимальный элементы в сумму не включать.

Среднее арифметическое положительных элементов массива

Найти среднее арифметическое положительных элементов линейного массива.

Максимальный отрицательный элемент массива

В массиве найти максимальный отрицательный элемент. Вывести на экран его значение и позицию в массиве.

Число, чаще всего встречающееся в массиве

Определить, какое число в массиве встречается чаще всего.

Поменять местами минимальный и максимальный элементы

В массиве случайных целых чисел поменять местами минимальный и максимальный элементы.

Сдвиг массива

Сдвинуть элементы массива в указанном направлении (влево или вправо) и на указанное число шагов. Освободившиеся ячейки заполнить нулями. Выводить массив после каждого шага.

Вывести неповторяющиеся элементы массива

В массиве найти элементы, которые в нем встречаются только один раз, и вывести их на экран. То есть найти и вывести уникальные элементы массива.

Реверс массива

Переставить элементы заданного массива в обратном порядке, то есть произвести реверс массива.

Найти наибольший элемент и его порядковый номер в массиве

Заполнить одномерный массив случайными числами. Найти и вывести на экран наибольший его элемент и порядковый номер этого элемента.

Сколько элементов массива больше по модулю максимального

Создать массив из 20 элементов в диапазоне значений от -15 до 14 включительно. Определить количество элементов по модулю больших, чем максимальный.

Удаление отрицательных элементов массива

Заполнить массив случайными положительными и отрицательными целыми числами. Вывести его на экран. Удалить из массива все отрицательные элементы и снова вывести.

Определить индексы четных элементов массива

Во втором массиве сохранить индексы четных элементов первого массива. Например, если дан массив со значениями 8, 3, 15, 6, 4, 2, то во второй массив надо заполнить значениями 1, 4, 5, 6 (или 0, 3, 4, 5 - если индексация начинается с нуля), т.к. именно в этих позициях первого массива стоят четные числа.

Найти максимальный по модулю элемент в массиве с уникальными по модулю значениями

Заполнить массив случайными положительными и отрицательными числами таким образом, чтобы все числа по модулю были разными. Это значит, что в массиве не может быть ни только двух равных чисел, но не может быть двух равных по модулю. В полученном массиве найти наибольшее по модулю число.