<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (n,a,b):=ReadInteger3('Введите размер массива и границы диапазона:');
var M:=ArrRandom(n,a,b); M.Println;
var d:=n div 2; // середина массива
M:=(M[:d].Reverse+M[d:].Reverse).ToArray; M.Println
end.
<u>Пример</u>
Введите размер массива и границы диапазона: 16 10 99
68 50 17 92 62 69 18 16 36 83 27 68 98 92 44 12
16 18 69 62 92 17 50 68 12 44 92 98 68 27 83 36
Составь схему маршрутов между друг другом и там всё видно будет)
Var x,k,n,s,i:integer;
begin
writeln('x, k, n:');
readln(x,k,n);
s:=x;
for i:=2 to n do
begin
x:=x+k;
s:=s+x;
end;
writeln('s = ',s);
end.
Пример:
<span>x, k, n:
10 2 5
s = 70</span>
Ответ:
Привет можешь перефотать а то не видно?