// PascalABC.NET 3.2, сборка 1385 от 14.02.2017 // Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('Число элементов в массиве:'); var a:=ArrRandom(n,1,99); Write('Исходный массив: '); a.Println; var n1,n2:integer; Write('Границы номеров элементов для суммы: '); Read(n1,n2); if n1>n2 then Swap(n1,n2); if (n1<1) or (n2>n) then Writeln('Границы выходят за пределы массива') else Writeln('S=',a[n1-1:n2].Sum) end.
Пример Число элементов в массиве: 15 Исходный массив: 89 82 45 28 88 68 34 19 35 26 67 43 71 96 66 Границы номеров элементов для суммы: 4 9 S=272
//PascalABC.Net 3.2 var m, n: integer; a: array of array of integer;
procedure zam(a1, b1: integer); begin for var i:=0 to n-1 do begin a[i][a1]+=a[i][b1]; a[i][b1] :=a[i][a1]-a[i][b1]; a[i][a1]-=a[i][b1]; end; end;
procedure sortSelekt (); var max: integer; begin for var i:=0 to m-1 do begin max:=i; for var j:=i to m-1 do if a[n-1][max]<a[n-1][j] then max:=j; if i<>max then zam (i, max); end; end;
procedure printMAS (); begin for var i:=0 to n-1 do begin for var j:=0 to m-1 do write (a[i][j]:4); writeln; end; end;
begin n:=readinteger('n ='); m:=readinteger('m ='); setLength (a, n); for var i:=0 to n-1 do a[i]:=arrRandom (m, -99, 99);
// Внимание! Если программа не работает, обновите версию!
begin
Range(0.0,1.0,10).Tabulate(x->x*sin(5*x+1)).Println(NewLine)
end.
Результат
(0,0)
(0.1,0.0997494986604054)
(0.2,0.181859485365136)
(0.3,0.179541643231187)
(0.4,0.0564480032239469)
(0.5,-0.17539161384481)
(0.6,-0.454081497184757)
(0.7,-0.684271082365568)
(0.8,-0.767139419730511)
(0.9,-0.634986293013353)
(1,-0.279415498198927)