Developing.ru

Код: Выделить всё

for i:=1 to N do
     for j:=1 to N do
          read(a[i,j]);

Код: Выделить всё

  {расчет в верхней половине от главной диагонали}
  nach_str:=1;
  kon_str:=n-1;
  nach_stb:=2;
  kon_stb:=n;
  For k:=1 to (n-1) do
   begin
    For i:=nach_str to kon_str do
     For j:=nach_stb to kon_stb do
      sum1:=sum1+mas2[i,j];
    If k=1 then
     max1:=sum1;
    if max1<sum1 then
     max1:=sum1;
    nach_str:=1;
    kon_str:=kon_str-1;
    nach_stb:=nach_stb+1;
    kon_stb:=n;
   end;

Код: Выделить всё

uses crt;
var m:array[1..3,1..3]of integer;
    i,j:integer;
BEGIN
clrscr;
 for i:=1 to 3 do
  begin
   for j:=1 to 3 do
    gotoxy(i+1,j);
    read(m[i][j]);
    writeln;
  end;
END.

Код: Выделить всё

For k:=1 to (n-1) do
   begin
    For i:=nach_str to kon_str do
     For j:=nach_stb to kon_stb do
      sum1:=sum1+mas2[i,j];

Код: Выделить всё

  {расчет в верхней половине от главной диагонали}
  nach_str:=1;
  kon_str:=n-1;
  nach_stb:=2;
  kon_stb:=n;
  For k:=1 to (n-1) do                                
   begin
    For i:=nach_str to kon_str do
     For j:=nach_stb to kon_stb do
      begin
       a:=a+1;
        If a=1 then
         sum1:=sum1+mas2[i,j];
        If j=kon_stb then
         a:=0;
      end;
    If k=1 then
     max1:=sum1;
    if max1<sum1 then
     max1:=sum1;
    nach_str:=1;
    kon_str:=kon_str-1;
    nach_stb:=nach_stb+1;
    kon_stb:=n;
   end;
   Writeln('max= ',max1);