матрица nXn, сумма Опции

[Svetlana]

Привет всем:-) Помогите пожалуйста отредактировать программу...Она должна определять минимум среди сумм элементов,расположенных на линиях,параллельных побочной диагонали. Свои старания приложила :-)
Ошибка: после условия в цикле while не заходит в цикл for.

[Lapp]

Ошибка: после условия в цикле while не заходит в цикл for.

Ошибка у тебя немного раньше на самом деле. В строке s[k]:=0 переменная k равна 0, а массив s определен, начиная с 1. Ты включи range check (по крайней мере на этапе отладки), иначе рискуешь потратить годы на отыскание ошибок. И разберись, что делать с s[0] - либо массив расширять, либо k начинать с 1..
Я немного причесал твою прогу. Было бы здорово, если бы ты продолжала держать ее правильно отформатированной..

program Project2;
{$APPTYPE CONSOLE}

uses
  SysUtils;
const
  n=5;
var
  matr:array [1..n,1..n] of integer;
  s,c: array [1..n] of integer;
  i,j,k,min1,min2:integer;

begin
  //randomize;
  for i:=1 to n do begin
    for j:=1 to n do begin
      matr[i,j]:=random(100)-20;
      write (matr[i,j]:3,' ')
    end;
    writeln;
  end;

  k:=0;
  s[k]:=0;
  while k<=n do begin
    for i:=1 to n+1-i-k do begin j:=n+1-i-k;
      s[k]:=s[k]+matr[i,j];
    end;
    writeln('s[',k,']=',s[k]);
    k:=k+1
  end;

  k:=1;
  c[k]:=0;
  while k<=n-1 do begin
    for i:=n downto n+1-i+k do begin
      j:=n+1-i+k;
      c[k]:=c[k]+matr[i,j]
    end;
    writeln('c[',k,']=',c[k]);
    k:=k+1
  end;

  min1:=s[1]; for k:=1 to n do if s[k]<min1 then min1:=s[k];
  min2:=c[1]; for k:=2 to n-1 do if c[k]<min1 then min1:=c[k];
  if min1<min2 then writeln ('min_summa=',min1)
  else  writeln ('min_summa=',min2);
  readln
end.

И клади код прямо в мессадж - зачем прикреплять? Только тэги пользуй (меню CODE)

[sheka]

что такое range check?

[Lapp]

что такое range check?

либо опция {$R+}, либо пункт в меню Options -> Compiler.
Отслеживает выход переменных и индексов за границы диапазона.

2 Svetlana:
Ой, а это как понимать?

    for i:=1 to n+1-i-k do

Ты используешь переменную цикла в границе. Что ты хотела этим сказать?
Хорошо, сейчас попробую вникнуть в твой алгоритм..

[Svetlana]

либо опция {$R+}, либо пункт в меню Options -> Compiler.
Отслеживает выход переменных и индексов за границы диапазона.

2 Svetlana:
Ой, а это как понимать?

    for i:=1 to n+1-i-k do

Ты используешь переменную цикла в границе. Что ты хотела этим сказать?
Хорошо, сейчас попробую вникнуть в твой алгоритм..

Хорошо,в следующий раз сделаю как сказали ) Насчёт прикрепления

Добавлено через 8 мин.
Спасибо

Добавлено через 14 мин.
А ты не мог бы мне объяснить как действует оператор: Inc(s[i+j],matr[i,j]);?