Pascal ABC Напишите ответ полностью пожалуйста! СРОЧНО!!!!!!!
1. Найти сумму элементов массива из 10 чисел.
2. Найти произведение элементов массива из 10 чисел .
3. Найти наименьший элемент массива из 10 чисел.
4. Найти наибольший элемент массива из 10 чисел.
5. Найти средне арифметическое элементов массива из 10 чисел.
6. Подсчитать количество нечетных элементов массива из 10 чисел.
Answers & Comments
Verified answer
Программа:
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