PASCAL K type type Nizarray1 15 of real

Декларисање матрица у PASCAL-у • Kао нови тип у одељку type: type Niz=array[1. . 15] of real; Matrica=array[1. . 20] of Niz; var A: Matrica; • Описом у одељку var: var A: array[1. . 20, 1. . 15] of real; Joш?

Пример 1: • Учитати димензије и елементе матрице који су реални бројеви, а затим за ту матрицу наћу суму елемената који су позитивни. program. Suma. Pozitivnih; type. Matrica=array[1. . 20, 1. . 15] of real; var A: Matrica; n, m, i, j: integer; S: real; begin write(’Unesi dimenzije matrice: ’); readln(n, m); writeln(’Ucitaj vrednosti elemenata matrice: ’); fori: =1 to n do forj: =1 to m do read(A[i, j]); S: =0; fori: =1 to n do forj: =1 to m do if A[i, j]>0 then. S=S+A[i, j]; Writeln(’S=’, S: 10: 2); end.

Пример 2: program. Маx. Dijagonala; type Matrica=array[1. . 20, 1. . 20] of integer; var A: Matrica; n, , i, j: integer; max: integer; begin write(’Unesi dimenziju matrice: ’); readln(n); writeln(’Ucitaj vrednosti elemenata matrice: ’); fori: =1 to n do forj: =1 to m do read(A[i, j]); max: =A[i, j];

Пример 2: fori: =1 to n do forj: =1 to m do if i=j then if A[i, j]>max thenmax=A[i, j]; Writeln(’max=’, max); end.