Question

Составить программу, заполняющую массив десятью случайными числами и выводящую на экран: 1) максимальное значение; 2)минимальное значение; 3)среднее арифметическое значение.

Answer 1

program n1;
  const n=10;
  var
  mas:array[1..n] of integer;
  i:integer;
  max,min,sum:integer;
  ar:real;
  begin
   for i:=1 to n do

begin
  mas[i]:= random (20)-10;
  write(mas[i],' ');
  writeln
 
end;

  max:=1;
   for i:=2 to n do

   if mas[i]>mas[max] then
   max:=i;
   writeln;
   writeln('Максимаьное значение a[',max,']= ',mas[max]);

   
  min:=1;
  for i:=2 to n do
   if mas[i]<mas[min] then
   min:=i;
   writeln;
   writeln(Минимальное значение a[',min,']= ',mas[min]);
   
 for i:=1 to n do
   sum:=sum+mas[i];
    ar:=sum/n;
   writeln;
   writeln('Среднее арифметическое =  ',ar);
   
end.
{Немного нерационально но работает=)}

Answer 2

Для выполнения данной задачи можно использовать язык программирования, такой как Python. Вот пример программы, которая решает задачу:

import random

# Создаем массив из 10 случайных чисел
arr = [random.randint(1, 100) for _ in range(10)]

# Выводим массив на экран
print("Массив случайных чисел:", arr)

# Находим максимальное значение в массиве
max_value = max(arr)
print("Максимальное значение:", max_value)

# Находим минимальное значение в массиве
min_value = min(arr)
print("Минимальное значение:", min_value)

# Находим среднее арифметическое значение
average_value = sum(arr) / len(arr)
print("Среднее арифметическое значение:", average_value)

Эта программа создает массив из 10 случайных чисел, выводит его на экран, а затем находит и выводит максимальное, минимальное и среднее арифметическое значение этого массива.