Anonymní profil Jerry – Programujte.com

a ty si nechodil do školy ? :))))

radky x, sloupce Y

for y := 0 to 6 do
  for x := 0 to 10 do
    matice[y,x] := 1 + random(8);

max := 0;
for x := 0 to 9 do begin

    for y := 0 to 6 do begin
         soucet := soucet + matice[y,x];

    end;

   prumer_radku[x] = soucet / 7;

   if max < prumer_radku[x] then begin

     max  = prumer_radku[x];

  end

end;

  for x := 0 to 10 do
      writeln( matice[y,x] );

for y := 0 to 6 do

    prumer_radku[x]

writeln( max );

a ten pozadavek ve kterem sloupci je max. hodnota prumeru opravdu nechapu ... zbytek si dodelas sam si chytry chlapec