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

Opis programa:

Listing programa:

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

Izvođenje programa:

Index