Задача 4. Значения элементов двухмерного массива A[1..100,1..100] задаются с помощью следующего фрагмента программы:
for i:=1 to 100 do
for k:=1 to 100 do
if i > k then
A[i,k] := 1
else A[i,k] := -1;


Чему равна сумма элементов массива после выполнения этого фрагмента программы?
1) 0 2) 100 3) -100 4) -200

Не всегда надо составлять программу, чтобы определить результат работы фрагмента))))

Вас понял... Включаю ЛОГИКУ...

Составим программку:uses Crt;const n=20;type Mas=array [1..n, 1..n] of integer;var A: Mas;    i,k, Sum: integer;beginClrScr;Sum:=0;for i:=1 to  n do  begin  for k:=1 to n do     begin      if i>k then             begin                A[i,k]:=1;                Sum:=Sum+A[i,k];             end             else             begin                A[i,k] :=-1;                Sum:=Sum+A[i,k];             end;      Write(A[i,k]:3);     end;  WriteLn;  end;  WriteLn;  WriteLn(' Sum = ',Sum);ReadLn;end.Эта программа симметрично относительно главной диагонали заполняет массив единичками с плюсом или минусом и считает сумму диагональных элементов.Если n=20, то Sum = -20Если n = 100, то Sum = - 100ПРАВИЛЬНЫЙ ОТВЕТ:      3) - 100