Для того чтобы вывести массив построчно, в Паскале можно воспользоваться циклом for или while. Внутри цикла нужно обратиться к элементу массива по его индексу и вывести его значение на экран.

Например, если имеется массив чисел arr с размерностью n, то следующий код выведет его элементы построчно:

Адекватное определение массива в Паскаль

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

var
имя_массива: array[индекс_начало..индекс_конец] of тип_элементов;

Где:

• имя_массива - идентификатор, который задает имя массива;
• индекс_начало - начальный индекс массива, указывающий на первый элемент;
• индекс_конец - конечный индекс массива, указывающий на последний элемент;
• тип_элементов - тип данных, которые будут храниться в массиве.

Например, определим целочисленный массив в Паскале с именем "numbers" и 5 элементами:

var
numbers: array[1..5] of integer;

Теперь мы можем использовать массив "numbers" для хранения и обработки целочисленных значений.

Пример кода:

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

program OutputArray;
var
arrayName: array [1..n] of integer;
i: integer;
procedure PrintArray(arrayName: array of integer);
var
i: integer;
begin
for i := low(arrayName) to high(arrayName) do
begin
write(arrayName[i], ' ');
if i mod 10 = 0 then
writeln;
end;
end;
begin
// Чтение значений массива
for i := 1 to n do
begin
write('Введите элемент массива ', i, ': ');
readln(arrayName[i]);
end;
writeln('Массив:');
PrintArray(arrayName);
end.

var arr: array[1..3, 1..3] of integer;
var i, j: integer;
begin
arr[1, 1] := 1;
arr[1, 2] := 2;
arr[1, 3] := 3;
arr[2, 1] := 4;
arr[2, 2] := 5;
arr[2, 3] := 6;
arr[3, 1] := 7;
arr[3, 2] := 8;
arr[3, 3] := 9;
for i := 1 to 3 do
begin
for j := 1 to 3 do
begin
writeln(arr[i, j]);
end;
end;
end.

В этом примере создается двумерный массив arr размером 3x3. Значения элементов массива заполняются числами от 1 до 9.

Результат выполнения программы:

1
2
3
4
5
6
7
8
9

Добавление дополнительных элементов в массив

В языке программирования Паскаль можно добавлять дополнительные элементы в массивы. Для этого необходимо выполнить следующую последовательность действий:

1. Определить новый элемент, который нам необходимо добавить в массив.
2. Увеличить размер массива на 1 с помощью оператора SetLength.
3. Присвоить новому элементу нужное значение.

Пример:

var
arr: array[1..5] of Integer; // исходный массив
i: Integer; // счетчик
begin
Randomize; // инициализация генератора случайных чисел
// заполнение исходного массива случайными числами
for i := 1 to 5 do
arr[i] := Random(100);
WriteLn('Исходный массив:');
for i := 1 to 5 do
WriteLn(arr[i]);
// добавление нового элемента в массив
SetLength(arr, Length(arr) + 1);
arr[6] := 42;
WriteLn('Массив с добавленным элементом:');
for i := 1 to 6 do
WriteLn(arr[i]);
end.

Результат выполнения программы:

Исходный массив:
57
2
81
39
46
Массив с добавленным элементом:
57
2
81
39
46
42

Таким образом, мы успешно добавили дополнительный элемент в массив и вывели его содержимое.

var
i, j: integer;
begin
for i := 1 to n do
begin
if (i >= 1) and (i = 1) and (j 

В данном коде переменные i и j отвечают за индексы массива. Условия i >= 1 и i проверяют, что значение i находится в допустимом диапазоне, аналогично для переменной j.

• for i := 1 to n do
  begin
  write(a[i]);
  if i  n then
  write(' '); // пробел между элементами, если не последний
  end;

• for i := n downto 1 do
  begin
  writeln(a[i]);
  end;

• procedure printArray(a: array of Integer; n: Integer);
  var
  i: Integer;
  begin
  for i := 1 to n do
  writeln(a[i]);
  end;