Найти минимальный элемент в массиве.Что неправильно?
var a:array [1..31] of integer;
day,i,n,min:integer;
begin
read(n);
for i:=1 to n do
read (a[i]);
min:=(a[1]);
day:=1;
for i:=2 to n do
begin
if(min begin
min:=a[i];
day:=1;
end;end;
write(day);
end.
1) Маска подсети: 11111111.11111111.11110000.00000000
IP: 11101000.01111110.10010110.00010010
номер сети - там где у маски единицы, а номер хоста В сети - там где у маски нули.
т.е 0110.00010010 отсюда получаем номер хоста: 0110.00010010 =1554
2) Маска подсети: 11111111.11111111.11100000.00000000
IP: 11001110.10011110.01111100.01000011
Номер хоста: 11100.01000011= 7235
3) Маска подсети: 11111111.11111111.11111100.00000000
IP: 11100010.10111001.01011010.10100010
Номер хоста: 10.10100010=674
type Cl = class
a:integer;
constructor Create(b:integer);
procedure SetVal(b:integer);
function GetVal:integer;
procedure Sq;
end;
constructor Cl.Create(b:integer);
begin
a := b;
end;
procedure Cl.SetVal(b:integer);
begin
a := b;
end;
function Cl.GetVal:integer;
begin
GetVal := a;
end;
procedure Cl.Sq;
begin
if a < 0 then
writeln('a ^ 2 = ', a * a)
else
writeln('Error');
end;
var
Obj:Cl;
a :integer;
begin
write('a = ');
readln(a);
Obj := Cl.Create(a);
Obj.Sq;
Readln;
Obj.Destroy;
end.