Question

ПОЖАЛУЙСТА, ПОМОГИТЕ МНЕ... ОЧЕНЬ СРОЧНО, ПОМОГИТЕ, УМОЛЯЮ Дан одномерный целочисленный массив Z[3..17], заданный случайными числами на промежутке (-25; 25). Найдите среднее арифметическое элементов массива.ПАСКАЛЬ!!!!​

Answer 1

Ответ:

pascal

Объяснение:

var i, s: integer;

   z: array [3..17] of integer;

begin

 randomize;

 for i := 3 to 17 do

 begin

   z[i] := random(51) - 25;

   write(z[i], ' ');

   s := s + z[i];

 end;

 writeln;

 writeln('Среднее арифметическое элементов = ', s / 15:1:2);

end.

Answer 2

Чтобы найти среднее арифметическое элементов массива, вы должны выполнить следующие шаги в языке Pascal:

1. Объявите массив Z с размерностью от 3 до 17 элементов типа целое число. 2. Заполните массив случайными числами в указанном диапазоне (-25; 25). 3. Вычислите сумму всех элементов массива и сохраните ее в переменной sum. 4. Вычислите среднее арифметическое, разделив сумму на количество элементов массива (в данном случае 15, так как массив содержит 15 элементов). 5. Выведите результат на экран.

program CalculateAverage;

var
  Z: array[3..17] of Integer;
  i, sum: Integer;
  average: Real;

begin
  Randomize;
  
  // Заполнение массива случайными числами
  for i := 3 to 17 do
    Z[i] := Random(51) - 25;
  
  sum := 0;
  
  // Вычисление суммы всех элементов массива
  for i := 3 to 17 do
    sum := sum + Z[i];
  
  // Вычисление среднего арифметического
  average := sum / 15;
  
  // Вывод результата
  WriteLn('Среднее арифметическое элементов массива: ', average);
end.

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