См решение в файле..(Вариант решения отрезок [5; 20]
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>
Как начать работу в интернете ?
1) 2^(10*1024*8/8/32/40)
2)
е=20
л=12
о=32
п=11
к=10
а=22
колокол = 10 32 12 32 10 32 12