Дано массивы A(N1, N1), B(N2, N2), C(N3, N3)?

Katiachuan 24 июл. 2020 г., 01:48:51

Type M = array[, ] of integer ;

procedure Swap(var a : M ; i : integer ; j : integer) ; / / обменивает местами элементы массива a[i, i] и a[i, j]

var buff : integer ;

begin if i < ; > ; j then begin buff : = a[i, i] ; a[i, i] : = a[i, j] ; a[i, j] : = buff end

end ;

function GetColMin(a : M ; i : integer) : integer ; / / возвращает номер столбца, в котором найден минимальный элемент / / по строке с номером i, т.

Е. a[i, ?

] = min

var j, vmin, jm : integer ;

begin vmin : = 32766 ; for j : = 0 to Length(a, 1) - 1 do if vmin > ; a[i, j] then begin vmin : = a[i, j] ; jm : = j end ; Result : = jm

end ;

procedure SwapMatrix(var a : M) ; / / меняет местами в массиве a[n, n] минимальный по строке элемент с / / элементом, лежащим на главной диагонали.

/ / Обращается к функции GetColMin и процедуре Swap

var i : integer ;

begin for i : = 0 to Length(a, 0) - 1 do Swap(a, i, GetColMin(a, i))

end ;

procedure WriteMas(a : M ; title : string) ; / / выводит заголовок, а потом массив построчно

var i, j, n : integer ;

begin n : = Length(a, 0) - 1 ; writeln(title) ; for i : = 0 to n do begin for j : = 0 to n do write(a[i, j] : 5) ; writeln end

end ;

procedure CreateMas(var a : M ; n : integer ; p : integer ; q : integer) ; / / Создает массив a[0.

N - 1, 0.

N - 1] и заполняет его / / данными используя датчик случайных чисел с мощностью "р" / / и минимальным значением q

var i, j : integer ;

begin Randomize ; SetLength(a, n, n) ; for i : = 0 to n - 1 do for j : = 0 to n - 1 do a[i, j] : = random(p) + q

end ;

const n1 = 3 ; n2 = 5 ; n3 = 8 ;

var a, b, c : M ;

begin CreateMas(a, n1, 100, - 50) ; WriteMas(a, 'Исходный массив а') ; SwapMatrix(a) ; WriteMas(a, 'Результирующий массив а') ; CreateMas(b, n2, 300, - 150) ; WriteMas(b, 'Исходный массив b') ; SwapMatrix(b) ; WriteMas(b, 'Результирующий массив b') ; CreateMas(c, n3, 500, - 250) ; WriteMas(c, 'Исходный массив c') ; SwapMatrix(c) ; WriteMas(c, 'Результирующий массив c') ;

end.

Тестовый прогон :

Исходный массив а 14 23 7 - 50 31 36 - 39 - 43 - 38

Результирующий массив а 7 23 14 31 - 50 36 - 39 - 38 - 43

Исходный массив b - 91 6 - 21 - 139 - 141 130 - 99 44 131 143 93 5 97 - 111 43 - 113 15 125 88 31 - 115 - 39 27 124 144

Результирующий массив b - 141 6 - 21 - 139 - 91 130 - 99 44 131 143 93 5 - 111 97 43 88 15 125 - 113 31 144 - 39 27 124 - 115

Исходный массив c - 234 211 207 - 131 151 - 228 197 - 163 147 5 180 - 135 - 181 217 - 178 - 3 178 - 142 - 149 - 44 - 195 - 224 - 187 - 173 - 24 62 28 - 134 - 11 - 216 - 59 83 62 - 86 48 152 - 44 - 49 - 218 92 91 - 60 201 206 - 160 - 135 - 131 77 161 - 184 - 204 113 - 181 199 223 240 147 129 143 - 162 - 6 80 98 113

Результирующий массив c - 234 211 207 - 131 151 - 228 197 - 163 147 - 181 180 - 135 5 217 - 178 - 3 178 - 142 - 224 - 44 - 195 - 149 - 187 - 173 - 24 62 28 - 216 - 11 - 134 - 59 83 62 - 86 48 152 - 218 - 49 - 44 92 91 - 60 201 206 - 135 - 160 - 131 77 161 - 184 223 113 - 181 199 - 204 240 147 129 143 113 - 6 80 98 - 162.

Эдик45 14 мая 2020 г., 05:59:50 | 10 - 11 классы

Верно ли, что сумма элементов главной диагонали квадратного массива не превышает 100?

Верно ли, что сумма элементов главной диагонали квадратного массива не превышает 100?

Marmaduke 16 нояб. 2020 г., 23:38:13 | 10 - 11 классы

HELP?

HELP!

Заменить значения всех элементов главной диагонали массива на нулевые.

2001алёська 10 нояб. 2020 г., 07:43:53 | 10 - 11 классы

Заменить значения всех четных элементов главной диагонали массива на нулевые?

Заменить значения всех четных элементов главной диагонали массива на нулевые.

Pascal.

Ephemeral 14 июл. 2020 г., 02:29:23 | 5 - 9 классы

Составьте программу которая запрашивает значения элементов одномерного числового массива а, стоящего из 10 элементов, формирует и выводит на экран в строку данный массив?

Составьте программу которая запрашивает значения элементов одномерного числового массива а, стоящего из 10 элементов, формирует и выводит на экран в строку данный массив.

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

Kateprincess 17 февр. 2020 г., 13:34:20 | 5 - 9 классы

1. Нахождение наибольшего элемента главной диагонали?

1. Нахождение наибольшего элемента главной диагонали.

(Паскаль, двумерные массивы ) 2.

Нахождение наименьших элементов в столбцах массива.

(Паскаль, двумерные массивы ).

Yyyyulya 7 нояб. 2020 г., 18:44:21 | 10 - 11 классы

Дана матрица К(3, 3), найти минимальный элемент массива в строке с индексом 3 и заменить этим значением все элементы главной диагонали?

Дана матрица К(3, 3), найти минимальный элемент массива в строке с индексом 3 и заменить этим значением все элементы главной диагонали.

315017 22 дек. 2020 г., 09:27:53 | 10 - 11 классы

В двумерном массиве а из m строк и n столбцов найти систему всех элементов и заменить на нули элементы на главной диагонали помогите пожалуйста выполнить через Pascal?

В двумерном массиве а из m строк и n столбцов найти систему всех элементов и заменить на нули элементы на главной диагонали помогите пожалуйста выполнить через Pascal!

Катерина706 18 янв. 2020 г., 03:57:13 | 5 - 9 классы

Найдите сумму всех элементов двумерного массива и сумму элементов каждой строки?

Найдите сумму всех элементов двумерного массива и сумму элементов каждой строки.

(паскаль).

Катя16445236 21 янв. 2020 г., 08:42:38 | 5 - 9 классы

Дан двумерный массив, который содердит не более 10 строк и 10 столбцов?

Дан двумерный массив, который содердит не более 10 строк и 10 столбцов.

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

Angelsandcat 30 дек. 2020 г., 12:21:52 | 5 - 9 классы

Помогите , пожалуйста ?

Помогите , пожалуйста !

Даю 65 баллов.

Разработайте программу в виде матрицы элементы массива B [1.

4, 1.

4] (элементы сгенерировать от - 5 до 5).

В массиве посчитать : 1) Произведение элементов стоящих над главной диагональю 2)Сумму элементов под главной диагональю 3)Элементы главной диагонали вывести на экран.