Решить. если можно обьясните как сделать через exel

Должно быть правильно, если я правильно понял твой вопрос.

program massive;  var a:array[1..50] of integer;  var i, s:integer;begin  for i:= 1 to 50 do //можем заполнить массив целыми числами от -1000 до 1000 используя random()    a[i]:= random(2001) - 1000;      for i:= 1 to 50 do //или дать пользователю самому заполнить массив  begin    writeLn('Введите значение ', i, ' элемента массива:');    readLn(a[i]);  end;      s:=0;  for i:= 1 to 50 do    if a[i] > 100 then      s:= s+a[i];    writeLn('Сумма элементов массива, которые больше 100 = ', s);end.

Решение 1.

Представим таблицу в виде: (см. Рис. 1)
Получаем уравнение
8 + b1 + 4 = 2*b1 + (b1+2) + 4
Отсюда:
b1 = 3.
Получаем (см. Рис. 2)

Далее, заметим, что сумма по горизонтали и по диагонали равна 15.
Заполняем таблицу (см. Рис. 3)

ответ: С2 = 9

Решение 2.

Заданным свойством (иметь одинаковую сумму по горизонталям, вертикалям и диагоналям) обладает единственный МАГИЧЕСКИЙ КВАДРАТ (не учитывая его повороты и отражения относительно осей).
Это магический квадрат 3х3 с магической суммой 15 (см. Рис. 4)

ответ: С2 = 9