Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Pascal] Двумерный массив

Автор: Don_Pedro 27.12.2006, 19:51

скажите пожалуйста, что требуется в этой задаче:

    Var d:array [1..10,1..10] of real;    s:real;

вычислить:
                          10
                       ______

                       \
                  S= /                max (d[i;j])

                       ______

                        K=1          1<=i          j<=k

Автор: Rodman 27.12.2006, 20:10

Код


var d:array[1..10,1..10]of integer;
      i,j,k,maxi,s:integer;
begin
   randomize;
s:=0;
   for i:=1 to 10 do 
   begin
       maxi:=-10000;
       for j:=1 to 10 do
       begin
           d[i,j]:=random(100)+1; 
           if(d[i,j]>maxi)then
                  maxi:=d[i,j];
       end;
       s:=s+maxi;
  end;
  writeln(s);
end.