Найти сумму элементов строки, в которой расположен наибольший элемент

Категория: Delphi/Pascal
2011-09-04 16:31:01
code: #pascal
  1. USES CRT;
  2. Type
  3.     mas1=array [1..5,1..3] of integer;
  4. Var
  5.    M: mas1;
  6.    i,j,mах,p: byte;
  7. begin
  8. Randomize;
  9. For i:=1 to 5 do
  10.     begin
  11.     For j:=1 to 3 do
  12.     M[i,j]:=random (50)-10;
  13.     end;
  14. For i:=1 to 5 do
  15.     Begin
  16.     For j:=1 to 3 do
  17.     Begin
  18.     Write (M[i,j]:5);
  19.     end;
  20.     Writeln;
  21.     End;
  22. For i:=1 to 5 do
  23.              Begin
  24.              P:=0;
  25.              For J:=1 to 3 do
  26.                  max:=M[i,j];
  27.                  If M[i,j]>max then
  28.                              begin
  29.                              P:=P+M[i,j];
  30.                              Writeln;
  31.                              Write(P:5);
  32.                              end
  33.               End;
  34. End.
Поделиться:

Похожие статьи:

теги: двумерный массив, массив, студенты, консольное приложение, наибольший элемент, сумма