11111(2)=1+2+4+8+16=31(10) =3*8+7=37(8)=16+15=1F(16)
111(8)=1+8+64=73(10)=4*16+9=49(16)=1+2^3+2^6=1+8+64=1001001(2)
256(10)=2^8=100000000(2)=4*8^2=400(8)=16^2=100(16)
AA(16)=10*16+10=170(10)=2*64+5*8+2=252(8)=2+2^3+2^5+2^7=2+8+32+128=10101010(2)
{Массив задаётся с помощью генератора случайных чисел. после того как он задан, последовательно перебираются все элементы и определяется наименьший элемент.}
procedure minZNmas;
<span> var
</span> mas: array[1..15] of integer;
k: integer;
min: integer; s: string;
begin
randomize;
//Заполнение массива случайными величинами
s:='';
for k:=1 to 15 do begin
mas[k]:=random(800);
s:=s+IntToStr(mas[k])+',';
end;
//Поиск минимального значения
min:=mas[k];
for k:=1 to 15 do
if mas[k]<min then
min:=mas[k];
Application.MessageBox(PChar(s),'Значения массива', MB_ICONINFORMATION);
Application.MessageBox(PChar(IntToStr(min)),'Минимальное значение', MB_ICONINFORMATION);
end;
begin minZNmasend.
===== PascalABC.NET =====
begin
var a := ArrRandom(25, -10, 50);
a.Println;
// 1
a[a.IndexMax] := Round(a.Average);
a.Println;
// 2
a.Where(p -> (p > 0) and (p mod 7 = 0)).Sum.Println
end.