Question

В программе pascalABC.NET 1)Создать при помощи генератора случайных чисел одномерный массив размером [100], и вывести на печать отдельно элементы большие 5. 2)Дан массив из 10 элементов, посчитать среднеарифметическое значение. 3) Дан массив из 10 элементов, получить другой, состоящий из квадратов этих элементов.

Answer 1

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  // 1
  var a:=ArrRandom(100,-20,20); a.Println;
  a.Where(x->x>5).Println;
  // 2
  var b:=ArrRandom(10,-50,50); b.Println;
  Writeln(b.Average);
  // 3
  var c:=ArrRandom(10,-30,30); c.Println;
  var d:=c.Select(x->x*x); d.Println
end.

Пример
3 0 -2 4 17 8 20 -1 -20 18 -6 -9 4 15 -18 -8 0 -17 3 -19 16 -7 -8 16 -19 11 20 2 12 -3 8 9 -13 20 1 1 13 9 15 15 -7 -16 8 13 -3 -9 -16 -17 7 5 -15 -13 18 -16 -1 -11 -13 2 2 -14 9 -3 7 3 -11 6 -16 4 -6 1 -1 11 -11 8 9 11 5 0 -2 10 6 16 16 -13 -8 1 11 -17 1 -9 -6 -10 -14 8 -14 16 -2 -15 4 12
17 8 20 18 15 16 16 11 20 12 8 9 20 13 9 15 15 8 13 7 18 9 7 6 11 8 9 11 10 6 16 16 11 8 16 12
-32 1 24 -36 -37 -14 45 -26 -11 20
-6.6
6 11 -25 19 1 19 3 0 -14 13
36 121 625 361 1 361 9 0 196 169

Answer 2

1) Создание и вывод элементов массива, больших 5

Для создания одномерного массива размером 100 при помощи генератора случайных чисел в программе PascalABC.NET и вывода на печать отдельно элементов, больших 5, можно использовать следующий код:

program ArrayExample;

var
  arr: array[1..100] of Integer;
  i: Integer;

begin
  Randomize; // Инициализация генератора случайных чисел

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

// Вывод элементов массива, больших 5
  for i := 1 to 100 do
  begin
    if arr[i] > 5 then
      writeln(arr[i]);
  end;
end.

В данном коде мы создаем массив `arr` размером 100 и заполняем его случайными числами от 0 до 9. Затем мы проходим по каждому элементу массива и выводим на печать только те элементы, которые больше 5.

2) Подсчет среднеарифметического значения массива

Для подсчета среднеарифметического значения массива из 10 элементов в программе PascalABC.NET можно использовать следующий код:

program ArrayAverage;

var
  arr: array[1..10] of Integer;
  i, sum, average: Integer;

begin
  // Заполнение массива значениями
  arr[1] := 5;
  arr[2] := 10;
  arr[3] := 15;
  arr[4] := 20;
  arr[5] := 25;
  arr[6] := 30;
  arr[7] := 35;
  arr[8] := 40;
  arr[9] := 45;
  arr[10] := 50;

// Подсчет суммы элементов массива
  sum := 0;
  for i := 1 to 10 do
    sum := sum + arr[i];

// Подсчет среднеарифметического значения
  average := sum div 10;

writeln('Среднеарифметическое значение: ', average);
end.

В данном коде мы создаем массив `arr` размером 10 и заполняем его значениями от 5 до 50. Затем мы проходим по каждому элементу массива и суммируем их значения. После этого мы делим сумму на количество элементов массива (в данном случае 10) и получаем среднеарифметическое значение. Наконец, выводим полученное значение на печать.

3) Создание массива из квадратов элементов

Для создания нового массива, состоящего из квадратов элементов исходного массива из 10 элементов в программе PascalABC.NET, можно использовать следующий код:

program ArraySquares;

var
  arr: array[1..10] of Integer;
  squares: array[1..10] of Integer;
  i: Integer;

begin
  // Заполнение исходного массива значениями
  arr[1] := 1;
  arr[2] := 2;
  arr[3] := 3;
  arr[4] := 4;
  arr[5] := 5;
  arr[6] := 6;
  arr[7] := 7;
  arr[8] := 8;
  arr[9] := 9;
  arr[10] := 10;

// Создание нового массива из квадратов элементов исходного массива
  for i := 1 to 10 do
    squares[i] := arr[i] * arr[i];

// Вывод нового массива на печать
  for i := 1 to 10 do
    writeln(squares[i]);
end.

В данном коде мы создаем исходный массив `arr` размером 10 и заполняем его значениями от 1 до 10. Затем мы проходим по каждому элементу исходного массива, возводим его в квадрат и сохраняем результат в новом массиве `squares`. Наконец, мы выводим новый массив на печать.