Question

На паскале Задание: Сформировать одномерный массив из 10-ти элементов. Значение элементов массива должно быть равно его индексу.

Answer 1

//PascalABC

begin
    ArrGen(10, i -> i).Print(', ');
end.

Answer 2

1. Вот так учат писать в школе...

// PascalABC.NET 3.1, сборка 1179 от 29.02.2016
const
  n=10;
var
  a:array[1..n] of integer;
  i:integer;
begin
  Randomize;
  for i:=1 to n do begin
    a[i]:=i;
    Write(a[i],' ')
    end;
  Writeln;
end.

Результат выполнения программы
1 2 3 4 5 6 7 8 9 10

2. А вот так пишут "в жизни"

// PascalABC.NET 3.1, сборка 1179 от 29.02.2016
begin
  var a:=Range(1,10).ToArray;
  a.Println
end.

Answer 3

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

pascalCopy code
program ArrayExample;
var
  arr: array[1..10] of Integer;
  i: Integer;
begin
  for i := 1 to 10 do
    arr[i] := i;
    
  // Выводим значения элементов массива на экран
  for i := 1 to 10 do
    WriteLn(arr[i]);
end.

В этом примере мы объявляем массив arr с размером 10 элементов, и затем используем цикл for для заполнения массива значениями от 1 до 10, где каждое значение равно его индексу. Наконец, мы выводим значения элементов массива на экран.