Добавил:
Fragga
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
unit Mas_PP;
interface
Type arr=Array of Integer;
Function Sum(n:integer;A:arr):integer;
Function Max(n:integer;A:arr):integer;
Procedure Kratn(n:integer;A:arr;k:integer;var B:arr;var kk:integer);
Procedure Sort(n:integer;var A:arr);
implementation
Function Sum;
Var S,i:integer;
Begin S:=0;
For i:=0 to n-1 do S:=S+A[i];
Sum:=S
end;
{--------------------------------------------------------------------}
Function Max;
//Максимальный элемент
var amax,i:integer;
begin
amax:=A[0];
for i:=0 to n-1 do
if A[i]>amax then amax:=A[i];
Max:=amax;
end;
{---------------------------------------------------------------------}
Procedure Kratn;
//Массив из кратных элементов
Var i:integer;
Begin kk:=0;
for i:=0 to n-1 do
if A[i] mod k =0 then
begin
SetLength(B,kk+1);
B[kk]:=A[i]; kk:=kk+1 end;
end;
{---------------------------------------------------------------------}
Procedure Sort;
//Сортировка массива по возрастанию
var i,k,x:integer;
Begin
for i:=0 to n-2 do
for k:=i downto 0 do
if A[k]>A[k+1] then
begin x:=A[k];A[k]:=A[k+1];A[k+1]:=x end;
end;
{----------------------------------------------------------------------}
end.
interface
Type arr=Array of Integer;
Function Sum(n:integer;A:arr):integer;
Function Max(n:integer;A:arr):integer;
Procedure Kratn(n:integer;A:arr;k:integer;var B:arr;var kk:integer);
Procedure Sort(n:integer;var A:arr);
implementation
Function Sum;
Var S,i:integer;
Begin S:=0;
For i:=0 to n-1 do S:=S+A[i];
Sum:=S
end;
{--------------------------------------------------------------------}
Function Max;
//Максимальный элемент
var amax,i:integer;
begin
amax:=A[0];
for i:=0 to n-1 do
if A[i]>amax then amax:=A[i];
Max:=amax;
end;
{---------------------------------------------------------------------}
Procedure Kratn;
//Массив из кратных элементов
Var i:integer;
Begin kk:=0;
for i:=0 to n-1 do
if A[i] mod k =0 then
begin
SetLength(B,kk+1);
B[kk]:=A[i]; kk:=kk+1 end;
end;
{---------------------------------------------------------------------}
Procedure Sort;
//Сортировка массива по возрастанию
var i,k,x:integer;
Begin
for i:=0 to n-2 do
for k:=i downto 0 do
if A[k]>A[k+1] then
begin x:=A[k];A[k]:=A[k+1];A[k+1]:=x end;
end;
{----------------------------------------------------------------------}
end.