Question

Напишите программу которая заполняет массив квадратами натуральных чисел от 1 до n(паскаль)

Answer 1

Var
  i,n: integer;
  a: array of integer;

begin
  readln(n);
  setlength(a,n+1);
  for i := 1 to n  do
  begin
    a[i] := sqr(i);
    write(a[i], ' ')
  end;
end.

Answer 2

Конечно! Вот пример программы на языке Паскаль, которая заполняет массив квадратами натуральных чисел от 1 до n:

program FillArrayWithSquares;
var
  arr: array of Integer;
  n, i: Integer;
begin
  Write('Введите значение n: ');
  ReadLn(n);
  
  SetLength(arr, n);
  
  for i := 0 to n - 1 do
  begin
    arr[i] := (i + 1) * (i + 1);
  end;
  
  WriteLn('Массив, заполненный квадратами натуральных чисел:');
  for i := 0 to n - 1 do
  begin
    WriteLn(arr[i]);
  end;
end.

В этой программе мы сначала объявляем переменные `arr` (массив) и `n` (значение, вводимое пользователем). Затем мы используем функцию `SetLength` для определения размера массива `arr`, который будет равен `n`.

Затем мы используем цикл `for` для заполнения массива `arr` квадратами натуральных чисел от 1 до `n`. Мы используем формулу `(i + 1) * (i + 1)` для вычисления квадрата каждого числа.

Наконец, мы используем еще один цикл `for` для вывода элементов массива `arr` на экран.

Программа запрашивает значение `n` у пользователя и выводит массив, заполненный квадратами натуральных чисел от 1 до `n`.