Тема: «Понятие квадратная матрица» 17.12.2013 10:17:47. - презентация

1 Тема: «Понятие квадратная матрица» :17:47

2 Найти максимальный элемент каждой строки двумерного массива А(5х5) введённого с клавиатуры. Program matrix; uses crt; const n=5; m=5; var a: array [1..n, 1..m] of integer; i, j: integer; мах: integer; begin {Ввод массива:} for i:=1 to n do begin for j:=1 to m do begin write (' A[, I, j,]=); read (A[i, j]); end; writeln; end; {Нахождение наибольшего по строкам массива:} for i:=1 to n do begin мах:=a[i,1]; for j:=1 to m do if a[I, j]>max then max:= [i, j]; writeln('мах элемент,I, строки =', мах); end; end.

3

4 Составить программу подсчета суммы элементов над главной диагональю в двумерном массиве а(n,n).

5 Program PR3; Var s, j, I, n: integer; A: array[1..10,1..10] of integer; Begin s:=0; Writeln(введи кол-во строк n); Read(n); For I:=1 to n do begin For j:=1 to n do begin a[ I,j ]:= Random( )-11; Write( a[I,j], ); if i

6 Вычислить количество положительных элементов главной диагонали матрицы A(N, N ) вещественных чисел. Тест Данные Результат N=2 A= К=2 M=2

7 Program kol; Uses Crt; Var A : Array [1..10, 1..10] of Real; N, К, i, j : Integer; BEGIN Write('Количество строк - '); ReadLn(N); WriteLn(' Матрица А'); For i := 1 to N do begin For j := 1 to N do begin a[ I,j ]:= Random(45-1+1)+1; IF (A[i, j]>0)and (i=j) then k:=k+1; Write(A[i, j] : 5 : 1, ); end; WriteLn; end; Writeln(кол-во положительных элементов, главной диагонали =,k); END.

8 Найти номера максимального элемента побочной диагонали двумерного массива А(5х5) введённого с клавиатуры.

9 Program matrix; uses crt; const n=5; var a: array [1…n, 1… n] of integer; k1, k2, i, j: integer; мах: integer; begin {Ввод массива:} for i:=1 to n do begin for j:=1 to m do begin write (' A[,I,j,]=); read (A[i,j]); end; writeln; end; {Нахождение номеров наибольшего элемента побочной диагонали:} for i:=1 to n do begin for j:=1 to n do begin write ( A[I,j], ); end; writeln; end; мах:=a[1, n ]; к1:=1; к2:= n; for i:=1 to n do for j:=1 to n do if (a[i,j]>max) and ( j= n +1-i ) then begin max:= a[i, j]; k1:=i; k2:=j; end; writeln('мах элемент =',мах, его номерa=,k1,, k2); end; end.

10 Домашнее задание Подсчитать, сколько раз встречается в заданной целочисленной матрице A(N, M) максимальное по величине число.