Napisati program kojim se na osnovu date matrice A [NxN] formira niz B[1] ... B[n] čiji su elementi redom jednaki:

a) sumi elemenata u vrstama matrice A
b) najmanjim vrednostima u vrstama matrice A
c) proizvodu elemenata kolona matrice A

Program MatiNiz;
type Niz = array [1..20] of real;
     Mat = array [1..20] of Niz;

Var A:Mat; B: Niz;
    n,i,j: integer; s,p,min: real;

Begin
 write ('unesite n'); readln (n);
 for i:=1 to n do
  for j:=1 to n do readln (A[i,j]);

{a) suma vrsta}
 for i:=1 to n do Begin
                   s:=0.0;
                   for j:=1 to n do s:=s + A[i,j];
                   B[i]:=s;
                  End;

{b) minimalni elementi vrsta}

for i:=1 to n do Begin
                  min:=A[i,1];
                  for j:= 2 to n do
                    if A[i,j]<min then min:=A[i,j];
                  B[i]:=min;
                 End;

{c) proizvod elem. kolona matrice}

for j:=1 to n do Begin 
                 p:=1;
                 for i:=1 to n do p:=p * A[i,j];
                 B[j]:=p;
                 End;
       

{ispis}
  for i:=1 to n do writeln (B[i]);
End.  


Za vežbu:
Napisati program kojim se na osnovu date matrice A [NxN] formira niz B[1] ... B[n] čiji su elementi redom jednaki najmanjim vrednostima glavne dijagonale i njenih paralela u donjem trouglu (matrice).