Информатика,Паскаль,написать программу: Сформировать массив, состоящий из n целых элементов, лежащих в промежутке [10;10] Вычислить:
-минимальный по модулю элемент
- количество элементов кратных 5
- сумму элементов массива, расположенных между первым и последним положительными элементами.

Предыдущий
вопрос Следующий
вопрос

program ArrayCalculations;
const
n = 10;
var
arr: array[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('Исходный массив:');
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('Минимальный по модулю элемент: ', 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('Количество элементов кратных 5: ', count_multiple_5);

// Нахождение первого и последнего положительных элементов
first_positive := 0;
last_positive := 0;
for i := 1 to n do
begin
if (arr[i] > 0) and (first_positive = 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('Сумма элементов массива, расположенных между первым и последним положительными элементами: ', sum);
end.