D21 d22 d23 4 6 7

Пример

Пример

Пример

Var A: array [1..4] of real; Type MAS1=array[1..4] of real;

B: array [1..3] of integer; MAS2=array[1..3] of integer;

Var A: MAS1;

B: MAS2; или

Type I1=1..4;

I2=1..3;

MAS1=array[I1] of real;

MAS2=array[I2] of integer;

Var A: MAS1;

B: MAS2;

for I:=1 to 4 do for I:=1 to 4 do

Read(A[I]); или begin

Writeln(‘A[‘,I,’]=’);

Read(A[I])

end;

{Ввод элементов одномерного массива}

{Вывод элементов одномерного массива}

for J:=1 to 3 do for J:=1 to 3 do

Write(B[J]:3); Writeln(‘B[‘,J,’]=’,B[J]:3);

{в строку 12 34 56} {в столбец B[ 1]= 12

B[ 2]= 34

B[ 3]= 56}

· Двумерный массив - матрица

D11 D12 D13 1 3 2

D =

D[I,J] - элемент матрицы, I - номер строки, J - номер столбца.