Помогите написать программу в pascal'e?

Карандашик321 17 июн. 2020 г., 06:45:21

Const nm = 20 ; nn = 20 ;

var a : array[1.

Nm, 1.

Nn] of integer ; i, j, m, n, k, imin, imax, nmin, nmax : integer ;

begin Write('Введите число строк и столбцов матрицы : ') ; Readln(m, n) ; Randomize ; Writeln('Исходная матрица') ; for i : = 1 to m do begin for j : = 1 to n do begin a[i, j] : = Random(101) - 50 ; Write(a[i, j] : 4) end ; Writeln end ; if m = n then begin imax : = 1 ; imin : = 1 ; nmax : = a[1, n] ; nmin : = nmax ; for i : = 2 to n do begin k : = a[i, n - i + 1] ; if nmax < ; k then begin imax : = i ; nmax : = k end ; if nmin > ; k then begin imin : = i ; nmin : = k end end ; a[imax, n - imax + 1] : = nmin ; a[imin, n - imin + 1] : = nmax end else begin i : = 2 ; while i < ; = m do begin for j : = 1 to n do a[i, j] : = 0 ; i : = i + 2 end ; end ; Writeln('Матрица - результат') ; for i : = 1 to m do begin for j : = 1 to n do Write(a[i, j] : 4) ; Writeln end ; Writeln

end.

Тестовые решения :

Введите число строк и столбцов матрицы : 5 5

Исходная матрица 29 40 - 24 34 16 32 - 45 9 - 10 27 - 45 30 - 50 - 24 - 50 15 33 3 12 36 46 - 46 0 2 43

Матрица - результат 29 40 - 24 34 16 32 - 45 9 - 10 27 - 45 30 46 - 24 - 50 15 33 3 12 36 - 50 - 46 0 2 43

Введите число строк и столбцов матрицы : 5 6

Исходная матрица 27 3 - 18 36 - 48 22 - 27 - 19 4 - 36 - 50 - 9 - 48 - 25 9 - 36 10 26 10 - 22 - 15 - 40 - 42 38 - 31 32 41 - 17 - 26 22

Матрица - результат 27 3 - 18 36 - 48 22 0 0 0 0 0 0 - 48 - 25 9 - 36 10 26 0 0 0 0 0 0 - 31 32 41 - 17 - 26 22.

Sashaegorov05 19 мая 2020 г., 11:12:44 | 10 - 11 классы

Составить программу в PASCAL?

Составить программу в PASCAL.

Ввести размерность матрицы и значения ее элементов.

Определить максимальный и минимальный элемент.

Переставить их местами.

Найти среднее арифметическое отрицательных элементов в i - ой строке.

Vikik123 2 апр. 2020 г., 08:19:27 | 10 - 11 классы

Напишите программу поиска минимального и максимального элементов матрицы?

Напишите программу поиска минимального и максимального элементов матрицы.

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

Alina200415 17 янв. 2020 г., 01:07:56 | 10 - 11 классы

1) Поменять местами минимальный четный элемент с последним?

1) Поменять местами минимальный четный элемент с последним.

2)На место максимального отрицательного элемента поместить сумму элементов кратных 3.

(в программе Паскаль) РЕБЯТКИ помогите))))))).

Aleksandrova01 14 февр. 2020 г., 23:57:03 | 10 - 11 классы

Составить программу в PASCAL?

Составить программу в PASCAL.

Ввести размерность матрицы и значения ее элементов.

Определить максимальный и минимальный элемент.

Переставить их местами.

Найти среднее арифметическое отрицательных элементов в i - ой строке.

Batov64 25 мая 2020 г., 02:56:43 | 10 - 11 классы

Заменить элементы побочной диагонали минимальными значениями строк?

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

Помогите еще раз!

Zajchikova1986 2 апр. 2020 г., 15:05:57 | 10 - 11 классы

Дана квадратная матрица порядка N?

Дана квадратная матрица порядка N.

Найти произведение элементов побочных диагонали квадратной матрицы.

Galinababenko 9 окт. 2020 г., 06:25:18 | 10 - 11 классы

Написать программу на паскале?

Написать программу на паскале.

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

Помогите пж.

NikitaPetrovBest 30 дек. 2020 г., 11:27:53 | 10 - 11 классы

В квадратной матрице найти сумму минимального и максимального элементов главной диагонали?

В квадратной матрице найти сумму минимального и максимального элементов главной диагонали.

IvanWein 14 сент. 2020 г., 17:25:44 | 10 - 11 классы

Написать программу для следующей задачи : в матрице А(8, 8) все отрицательные элементы, стоящие на главной диагонали и ниже нее, заменить нулями?

Написать программу для следующей задачи : в матрице А(8, 8) все отрицательные элементы, стоящие на главной диагонали и ниже нее, заменить нулями.

Gaben345 24 дек. 2020 г., 08:36:03 | 10 - 11 классы

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

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