Как нужно записать формулу суммирования диапазона ячеек от A3 до C7?

ну тут в ручную надо сделать (короче пишешь в ячейке =СУММА) и выделяешь сколько сколько надо

(не знаю может ты плохо слушал учителя )

program z1;

var x,y,z:array [1..10] of integer;

i,kx,ky:integer;

begin

kx:=0;

ky:=0;

randomize;

for i:=1 to 10 do

begin

z[i]:=random(21)-10;

if z[i]>0 then

begin

ky:=ky+1;

y[ky]:=z[i]

end;

if z[i]<0 then

begin

kx:=kx+1;

x[kx]:=z[i]

end  

end;

write('Массив X: ');

for i:=1 to kx do write(x[i]:5);

writeln;

write('Массив Y: ');

for i:=1 to ky do write(y[i]:5);

writeln;

write('Массив Z: ');

for i:=1 to 10 do write(z[i]:5);

end.

Объяснение:

Задаём массив Z

Распределяем элементы массива Z

Выводим массивы на экран

Рассмотрим простейшую схему кредитования (и самую невыгодную для заёмщика), когда за каждый год отдается фиксированный процент p от первоначальной суммы кредита k без учета того, что часть кредита уже погашена за предыдущие годы.
В этом случае ежегодная сумма процентов по кредиту составит Sk=k×p%/100%.
За n лет будет отдано n×Sk. И еще нужно вернуть саму сумму кредита k.
Итого нужно вернуть k+n×Sk.
Доход за это время составит n×r и получаем неравенство
n×r ≥ n×Sk+k
n×(r-Sk) ≥ k → n ≥ k/(r-Sk) с округлением до целых в большую сторону.

// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var (k,p):=ReadReal2('Сумма кредита и процент годовых:');
  var r:=ReadReal('Предполагаемый годовой доход:');
  var Sk:=k*p/100;
  if r<=Sk then Writeln('Рассчитаться за кредит невозможно')
  else Writeln('Количество лет на погашение кредита: ',Floor(k/(r-Sk)))
end.

Пример
Сумма кредита и процент годовых:10 0000 16
Предполагаемый годовой доход: 24000
Количество лет на погашение кредита: 12