Программирование на языке Паскаль Матрицы

Определение матрицы Матрица - это прямоугольная таблица с данными одного типа. Строки Столбцы A(3,4) = Для того чтобы обратиться к какому-либо элементу матрицы необходимо указать имя матрицы A, а затем в квадратных скобках, через запятую, указать номер строки и номер столбца на пересечении, которых находится нужный элемент. A[2,3]=1A[3,2]=3 или

Описание матрицы Var : array[1..N,1..M] of ; Пример Var x: array[1..3,1..4] of real; b: array[1..10,1..10] of integer; Тип элементов массива Количество строк Количество столбцов Для работы с матрицами применяются вложенные циклы. Параметры внешнего и внутреннего циклов разные и изменяются не одновременно, т.е. при одном значении параметра внешнего цикла параметр внутреннего цикла принимает последовательно все значения. Пример: Вычислить сумму всех элементов матрицы A(3,4).

Алгоритм КОНЕЦ S=S+A(i,j) S=0 НАЧАЛО j=1;4;1 i=1;3;1 ВВОД A(i,j) ВВОД S ijA(i,j)S

Программа program prim; var a:array [1..3,1..4] of integer; i,j,sum: integer; Begin sum:=0; writeln(Введите элементы матрицы); for i:=1 to 3 do for j:=1 to 4 do begin readln(a[i,j]); sum:=sum+a[i,j]; end; writeln(сумма равна,sum:5); readln; end. program prim; var a:array [1..3,1..4] of integer; i,j,sum: integer; Begin sum:=0; writeln(Введите элементы матрицы); for i:=1 to 3 do for j:=1 to 4 do begin readln(a[i,j]); sum:=sum+a[i,j]; end; writeln(сумма равна,sum:5); readln; end.

Ввод матрицы в режиме диалога program dialog; uses crt; const n=10; var a:array[1..n,1..n] of integer; i,j: integer; begin clrscr; writeln(Введите матрицу); for i:=1 to n do for j:=1 to n do begin write(a[,i:2,,,j:2,]=); readln(a[i,j]); end; readkey; end.

Ввод матрицы c помощью ГСЧ program generator; uses crt; const n=10; var a:array[1..n,1..n] of integer; i,j: integer; begin clrscr; randomize; writeln(Cгенерированная матрица); for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=random(50); write(a[i,j]:3); end; writeln; end; readkey; end.

Ввод матрицы в разделе констант program constanta; uses crt; const n=3; a:array[1..n,1..n] of integer=(1,3,-4, 5,-3,-2, 3, 3, 2); var i,j: integer; begin clrscr; writeln(Исходная матрица); for i:=1 to n do begin for j:=1 to n do write(a[i,j]:3); writeln; end; readkey; end.

Задача Ввести матрицу А(3,3) состоящий из положительных и отрицательных целых чисел. Вычислить сумму положительных элементов матрицы. Пример: Введите элементы матрицы: Сумма положительных элементов:18