Question

Дан массив из 13 элементов заполнить его по вашему усмотрению (можно запросить у пользователя, можно случайными числами) найти и вывести на экран среднее арифметическое элементов этого массива. Решить в Pascal ABC

Answer 1

Новые возможности, которые добавляют разработчики, позволяют вообще написать одну строчку:

Код (PascalABC.NET):

## ArrRandomInteger(13).Println.Average.Print;

## говорит о том, что компилятор добавит в начало и конец begin и end.

ArrRandomInteger(13) - функция, генерирующая массив из 13 случайных целых чисел

Println - метод расширения, выводящий элементы через пробел и в конце переходящий на новую строку

Average - метод, вычисляющий среднее значение

Print - вывод значения на экран

В стиле "старого" паскаля:

Код (PascalABC.NET):

var

 a: array[1..13] of integer;

 s, i: integer;

begin

 randomize;

 s := 0;

 for i := 1 to 13 do

 begin

   a[i] := random(100);

   write(a[i], ' ');

   s := s + a[i];

 end;

 writeln;

 write(s / 13);

end.

Пример вывода:

38 86 86 0 24 95 51 41 32 18 74 15 55  

47.3076923076923

Answer 2

Вот пример кода на Pascal ABC, который создает массив из 13 случайных чисел и вычисляет среднее арифметическое элементов массива:

pascalCopy code
program CalculateAverage;

var
  arr: array[1..13] of integer;
  i, sum, average: integer;

begin
  // Заполняем массив случайными числами
  Randomize;
  for i := 1 to 13 do
  begin
    arr[i] := Random(100); // Генерируем случайные числа от 0 до 99
  end;

  // Вычисляем сумму элементов массива
  sum := 0;
  for i := 1 to 13 do
  begin
    sum := sum + arr[i];
  end;

  // Вычисляем среднее арифметическое
  average := sum div 13;

  // Выводим результат на экран
  writeln('Массив элементов:');
  for i := 1 to 13 do
  begin
    writeln('arr[', i, '] = ', arr[i]);
  end;
  writeln('Среднее арифметическое: ', average);

  readln;
end.

Этот код создает массив из 13 случайных чисел и вычисляет их среднее арифметическое. Значения элементов массива и среднее арифметическое выводятся на экран.