109.1.. Učitati matricu i naći u kojoj koloni je najmanja aritmetička sredina.

Opis programa:

Listing programa:

program p10901199;
uses wincrt;
var
   i,j,n,m,zbir,br,minkol: integer;
   min:real;
   x:array[1..15,1..15] of integer;
   as:array[1..15] of real;
begin
     write('unesi dimenzije matrice n, m ');
     readln(n,m);
     for i:=1 to n do
         for j:=1 to m do
         begin
              write('x[',i,',',j,']=');
              readln(x[i,j]);
         end;
     for j:=1 to m do
     begin
         for i:=1 to n do
             begin
             zbir:=zbir + x[i,j];
             br:=br + 1;
             end;
         as[j]:=zbir/br;
         br:=0;
         zbir:=0;
     end;
     min:=as[1];
     minkol:=1;
     for j:=1 to m do
     begin
         if as[j] < min then
            begin
            min:=as[j];
            minkol:=j;
            end;
     end;
     writeln('najmanja aritmeticka sredina je u ',minkol,'. koloni');
end.

Izvođenje programa:

Index