Пример программы по работе с массивами.
program
arrs;
uses
crt;
const
n=10;
type
vector = array[1..n] of integer;
var
arr:vector;
com:integer;
Procedure
InputArr(var arr:vector);
var
i:integer;
begin
for
i:=1 to n do
arr[i]:=random(20)-8;
end;
Procedure
WriteArr(arr:vector);
var
i:integer;
begin
for
i:=1 to n do
write
(arr[i], ' ');
end;
Function
MaxArr(arr:vector):integer;
var
i,max:integer;
begin
max:=arr[1];
for
i:=1 to n do
begin
if(arr[i]>max)
then max:=arr[i];
end;
MaxArr:=max;
end;
Function
MinArr(arr:vector):integer;
var
i,min:integer;
begin
min:=arr[1];
for
i:=1 to n do
begin
if(arr[i]<min)
then min:=arr[i];
end;
MinArr:=min;
end;
BEGIN
clrscr;
randomize;
InputArr(arr);
WriteArr(arr);
writeln;
write('Enter
1 for max/2 for min ');
readln(com);
case
com of
1:
write('Max=', MaxArr(arr));
2:
write('Min=', MinArr(arr));
end;
readln;
END.
8
