Pascal ABC Напишите ответ полностью пожалуйста! СРОЧНО!!!!!!!
1. Найти сумму элементов массива из 10 чисел.
2. Найти произведение элементов массива из 10 чисел .
3. Найти наименьший элемент массива из 10 чисел.
4. Найти наибольший элемент массива из 10 чисел.
5. Найти средне арифметическое элементов массива из 10 чисел.
6. Подсчитать количество нечетных элементов массива из 10 чисел.

Программа:
Pascal:

var

 arr: array[1..10] of integer;

 i, summ, proiz, minimum, maximum, count, countODD: integer;

begin

 proiz := 1;

 minimum := MAXINT;

 maximum := -MAXINT;

 // заполним массив случайными числами:

 randomize;

 for i := 1 to 10 do

   arr[i] := random(-1000, 1000);

 writeln('Массив: ', arr);

 // выполняем основные задачи:

 for i := 1 to 10 do begin

   summ += arr[i];

   proiz *= arr[i];

   if arr[i] < minimum then minimum := arr[i];

   if arr[i] > maximum then maximum := arr[i];

   count += 1;

   if abs(arr[i]) mod 2 <> 0 then countODD += 1;

 end;

 writeln('Сумма элементов массива: ', summ);

 writeln('Произведение элементов массива: ', proiz);

 writeln('Минимальный элемент массива: ', minimum);

 writeln('Максимальный элемент массива: ', maximum);

 writeln('Среднее арифметическое элементов массива: ', summ/count);

 writeln('Количество нечётных элементов: ', countODD);

end.

Объяснение:

В начале выделяем память под сам массив из 10 элементов а далее регистрируем необходимые переменные. Далее вводим переменной proiz значение 1; minimum - максимально возможное число, которое может хранится в переменной типа integer; maximum - минимальное число, которое может хранититься.

Заполняется массив случайными числами (этот фрагмент можно заменить на ввод чисел с клавиатуры). После - выполняются основные задачи, необходимые по условию. Переменная i пробегается по числам от 1 до 10 (как раз индексы элементов массива). Значение переменной summ увеличивается на значение элемента с индексом i, proiz - умножается на этот же элемент. Если это число меньше минимального, то переменной minimum присваивается данное число; если число с индексом i больше переменной maximum, устанавливаем новое значение для этой переменной. Увеличиваем count - для удобства, тут будет "длина" массива (кол-во, сколько раз выполнился цикл). И напоследок проверка, является ли число нечётным: если да, то значение переменной countODD увеличивается на единицу.

В конце вывод значений переменных. Кроме среднего арифметического - там считается результат деления суммы на кол-во - это и будет среднее арифметическое.

Результат:

Массив: [-532,-279,-164,329,-459,41,-219,-596,-623,-471]

Сумма элементов массива: -2973

Произведение элементов массива: -1140933184

Минимальный элемент массива: -623

Максимальный элемент массива: 329

Среднее арифметическое элементов массива: -297.3

Количество нечётных элементов: 7

Массив: [787,956,467,643,-512,676,-74,409,406,695]

Сумма элементов массива: 4453

Произведение элементов массива: 1029865472

Минимальный элемент массива: -512

Максимальный элемент массива: 956

Среднее арифметическое элементов массива: 445.3

Количество нечётных элементов: 5