1000байт-1Кбайт-10Мбайт-1Гбайт
Function min(a: array of integer): integer;
var i, m: integer;
begin
for i := 0 to length(a) do
if (a[i] < m) then m := a[i];
result := m;
<span>end;
Вот, в теории должно работать, но проверить, извините, не могу, PascalABC не поддерживает передачу массивов><</span>
С помощью кодировки ( 8 битной, 16 битной...)
Эти числа были написаны в троичной системе счисления.
Номер квартиры 572.
История болезни не является персональными данными