Sum := 0;
z := 0;
for i := 1 to 4 do
for j := 1 to 2 do
if A[i,j] > 0 then
begin
sum := sum + A[i,j]
inc(z)
end;
SrArif := sum/z;
1) По поводу вопроса изменения при копировании в ячейку:
При относительных ссылках, значение подкорректируется,
<span>при абсолютных (ставится знак доллара перед адресом ячейки) останется как было, а при смешанных наверно там где относительная ссылка, то подкорректируется, а там где абсолютная - то останется тот же адрес.
</span>2-3) <span>В работе с электронными таблицами можно выделить три основных типа данных: числа, текст и формулы.
Это кратко и по сути.
Если нужно подробнее - обращайся)</span>
1.
Var a:array [1..1000] of integer;
S,i,n:integer;
begin
S:=0;
Read (n);
For i:=1 to n do
S:=S+a[i];
Writeln (S);
end.
2.
Var n,S,i:integer;
begin
S:=0;
Read (n);
For i:=1 to n do
S:=S+(1/i);
Writeln (S);
end.
3.
3 ч - 2шт
6 ч - 4шт
9 ч - 8шт
12ч - 16шт
15 18 21 умножается на 2
24ч - 256шт