Как вывести массив на экран – паскаль, способы и советы!

for i := 1 to n do
writeln('arr[', i, '] = ', arr[i]);

Вывести массив на экран: зачем и как это делается

var
arr: array[1..5] of Integer; // объявление массива
i: Integer; // счетчик цикла
begin
// заполнение массива
for i := 1 to 5 do
arr[i] := i * 10;
for i := 1 to 5 do
Writeln(arr[i]);
end.

Пример кода:

program OutputArray;
var
arr: array[1..5] of integer;
i: integer;
begin
arr[1] := 10;
arr[2] := 20;
arr[3] := 30;
arr[4] := 40;
arr[5] := 50;
for i := 1 to 5 do
writeln(arr[i]);
end.

Результат выполнения данной программы будет следующим:

10
20
30
40
50

Если количество элементов в массиве больше пяти, то нужно изменить соответствующие значения в объявлении массива и в цикле for. Например, если у нас будет массив из десяти элементов, то код будет выглядеть следующим образом:

var
arr: array[1..10] of integer;
i: integer;
begin
arr[1] := 10;
arr[2] := 20;
arr[3] := 30;
arr[4] := 40;
arr[5] := 50;
arr[6] := 60;
arr[7] := 70;
arr[8] := 80;
arr[9] := 90;
arr[10] := 100;
for i := 1 to 10 do
writeln(arr[i]);
end.

Ниже приведен пример использования данного метода:

program PrintArray;
var
arr: array[1..5] of Integer;
i: Integer;
begin
arr[1] := 10;
arr[2] := 20;
arr[3] := 30;
arr[4] := 40;
arr[5] := 50;
for i := 1 to 5 do
begin
writeln(arr[i]);
end;
end.

Результат выполнения программы будет следующим:

10
20
30
40
50

Пример кода:


var
arr: array[1..5] of integer = (1, 2, 3, 4, 5);
str: string;
begin
str := JoinStr(',', arr);
writeln(str);
end.


Однако следует учитывать, что преобразование массива в строку может занимать некоторое время и потреблять больше памяти, особенно при больших размерах массива. Поэтому рекомендуется использовать данный метод с осторожностью, особенно при работе с массивами больших размеров.

program OutputArray;
var
arr: array[1..5] of Integer;
i: Integer;
begin
for i := 1 to 5 do
begin
arr[i] := i * 2;
WriteLn(arr[i]);
end;
end.

program OutputArray;
var
arr: array[1..5] of Integer;
i: Integer;
begin
for i := 1 to 5 do
arr[i] := i * 2;
for i := 1 to 5 do
WriteLn(arr[i]);
end.

Обратите внимание, что в Паскале нумерация элементов массива начинается с 1, поэтому в текущих примерах использованы индексы от 1 до 5. Если вам необходимо работать с массивом другой размерности, то вам следует изменить соответствующие значения в объявлении массива и в циклах.