Question

Заповніть масив А натуральними числами від 1 до 10 та вивести його на екран у рядок.(Паскаль)

Answer 1

Не до конца понятно как именно надо заполнять потому два варианта

begin
    ArrRandomInteger(10, 1, 10).Println;
    ArrGen(10, 1, x -> x + 1).Println;
end.

или так

const
    n = 10;
var
    a: array[1..n] of integer;
    i: integer;

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