program ArrayCalculations;
const
n = 10;
var
arr: array$$\mathrm{1..}n$$ of integer;
i, min, count_multiple_5, sum, first_positive, last_positive: integer;
begin
// Заполнение массива случайными числами
Randomize;
for i := 1 to n do
arr$$i$$ := RandomRange$-10,11$;

// Вывод массива на экран
writeln${}^{\prime }Исходныймассив{:}^{\prime }$;
for i := 1 to n do
write(arr[i], ' ');

// Нахождение минимального по модулю элемента
min := Abs$arr[1]$;
for i := 2 to n do
if Abs$arr[i]$ < min then
min := Abs$arr[i]$;
writeln;
writeln${}^{\prime }Минимальныйпомодулюэлемент{:}^{\prime },min$;

// Подсчет количества элементов кратных 5
count_multiple_5 := 0;
for i := 1 to n do
if arr$$i$$ mod 5 = 0 then
count_multiple_5 := count_multiple_5 + 1;
writeln${}^{\prime }Количествоэлементовкратных5{:}^{\prime },coun{t}_{m}ultipl{e}_5$;

// Нахождение первого и последнего положительных элементов
first_positive := 0;
last_positive := 0;
for i := 1 to n do
begin
if (arr[i] > 0) and $firs{t}_{p}ositive=0$ then
first_positive := i;
if arr$$i$$ > 0 then
last_positive := i;
end;

// Вычисление суммы элементов между первым и последним положительными элементами
sum := 0;
if (first_positive <> 0) and (last_positive <> 0) then
for i := first_positive + 1 to last_positive - 1 do
sum := sum + arr$$i$$;
writeln${}^{\prime }Суммаэлементовмассива,расположенныхмеждупервымипоследнимположительнымиэлементами{:}^{\prime },sum$;
end.