<em>// PascalABC.NET 3.3, сборка 1540 от 16.09.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('n=');
var a:=ArrRandom(n,-35,35); a.Println;
var (k1,k3):=ReadInteger2('Введите границы индексов для замены элементов:');
// блок "защиты от дурака"
if k1<1 then k1:=1;
if k1>n-1 then k1:=n-1;
if k3<1 then k3:=1;
if k3>n-1 then k3:=n-1;
if k1>k3 then Swap(k1,k3);
// -----------------------
for var i:=k1-1 to k3-1 do a[i]:=-a[i];
a.Println
end.
<u>Пример</u>
n= 13
-27 18 15 31 27 -1 -5 20 -20 -34 -7 -33 16
Введите границы индексов для замены элементов: 6 9
-27 18 15 31 27 1 5 -20 20 -34 -7 -33 16
Думаю, А (<span>для того, чтобы представленные сведения можно было запрограммировать в числовом виде на компьютере</span>) подходит.
Активная ячейка (ActiveCell) - это выделенная ячейка, если выделен диапазон, то обычно это первая ячейка диапазона.
Для редактирования ячейки вручную, ее для начала придется выбрать т.е. сделать активной
//Pascal ABC.NET v3.1 сборка 1219
Const
n=5;
Var
a:array[1..n] of integer;
i,s:integer;
begin
for i:=1 to n do
begin
readln(a[i]);
if a[i]<i then s:=s+a[i];
end;
writeln(s);
end.
Пример ввода:
2
2
1
1
2
Пример вывода:
4
Таблица в MS Excel
В ячейке B2 формула =A2*4-5, которую размножили на диапазон значений x