ПОМОГИТЕ ПОЖАЛУЙСТА!!!!!
Дан массив, состоящий из 10 элементов заданных случайным образом от 1 до 20 найти среднее арифметическое между самым большим и самым маленьким элементами массива (PASCAL)
Ответы
const
N = 10; // размер массива
var
a: array[1..N] of integer; // массив
min, max, sum: integer; // переменные для хранения минимума, максимума и суммы
begin
// генерируем случайные числа в массиве
for i := 1 to N do
a[i] := Random(20) + 1;
// инициализируем min и max с первым элементом массива
min := a[1];
max := a[1];
// ищем минимум и максимум в массиве
for i := 2 to N do
begin
if a[i] < min then
min := a[i];
if a[i] > max then
max := a[i];
end;
// считаем сумму min и max
sum := min + max;
// выводим среднее арифметическое
writeln((sum / 2):0:2);
end.
В этом коде мы сначала генерируем случайные числа в массиве a, затем инициализируем переменные min и max с первым элементом массива. Затем мы ищем минимум и максимум в массиве с помощью цикла. После этого мы считаем сумму min и max и выводим среднее арифметическое, используя функцию writeln с форматированием вывода.