Question

Напишите программу, которая заполняет массив из N = 8 элементов случайными числами в диапазоне [0,10], выводит его на экран, а затем выводит на экран квадраты всех элементов массива. Пример: Массив: 5 6 2 3 1 4 8 7 Квадраты: 25 36 4 9 1 16 64 49 Ответ в pascal

Answer 1

===== PascalABC.NET =====

begin

 var a := ArrRandom(8, 0, 10);

 Write('Массив: ');

 a.Println;

 Write('Квадраты: ');

 a.Select(p -> p * p).Println

end.

Answer 2

Вот пример программы на Pascal, которая выполняет описанные вами задачи:

pascalCopy code
program ArraySquares;

const
  N = 8; // Количество элементов в массиве
  MinValue = 0; // Минимальное значение случайных чисел
  MaxValue = 10; // Максимальное значение случайных чисел

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

begin
  // Заполняем массив случайными числами
  Randomize; // Инициализируем генератор случайных чисел
  for i := 1 to N do
    arr[i] := Random(MaxValue - MinValue + 1) + MinValue;

  // Выводим массив на экран
  Write('Массив: ');
  for i := 1 to N do
    Write(arr[i], ' ');
  Writeln;

  // Выводим квадраты элементов массива на экран
  Write('Квадраты: ');
  for i := 1 to N do
    Write(arr[i] * arr[i], ' ');
  Writeln;
end.

Эта программа создает массив arr из 8 элементов и заполняет его случайными числами в диапазоне от 0 до 10. Затем она выводит содержимое массива на экран и квадраты каждого элемента массива.