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

Opis programa:

Listing programa:

program p10901200;
uses wincrt;
var
   i,j,n,m,zbir,br,maxkol: integer;
   max: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;
     max:=as[1];
     maxkol:=1;
     for j:=1 to m do
     begin
         if as[j]>max then
            begin
            max:=as[j];
            maxkol:=j;
            end;
     end;
     writeln('najveca aritmeticka sredina je u ',maxkol,'. koloni');
end.

Izvođenje programa:

Index