Инициализация массива

Pas.0002. Напишите программу, в которой инициализируется массив «a», состоящий из двенадцати элементов целого типа (значения «31», «28», «31», ..., «31»).

Решение.

Вариант 1

program InitArray1;

const

    N = 12;

var

    a : array [1..N] of integer;
    i : integer;

begin

    a[1] := 31; a[2] := 28; a[3] := 31;
    a[4] := 30; a[1] := 31; a[6] := 30;
    a[7] := 31; a[8] := 31; a[9] := 30;
    a[10] := 31; a[11] := 30; a[12] := 31;
  
    for i := 1 to N do
        writeln('a[', i, '] = ', a[i]);

end.

Вариант 2

program InitArray2;

const

    N = 12;

var

    a : array [1..N] of integer =
        (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
    i : integer;

begin
  
    for i := 1 to N do
        writeln('a[', i, '] = ', a[i]);

end.