varA: array[10..19] of integer;B: array[1..6] of real;i: integer;
begin// Инициализация массива Afor i := 10 to 19 dobeginA[i] := 0; // Присваиваем начальное значениеend;
// Инициализация массива Bfor i := 1 to 6 dobeginB[i] := 0.0; // Присваиваем начальное значениеend;
// Пример обращения к элементам массива Awriteln('Элемент A[10]: ', A[10]);writeln('Элемент A[15]: ', A[15]);
// Пример обращения к элементам массива Bwriteln('Элемент B[1]: ', B[1]:0:2);writeln('Элемент B[6]: ', B[6]:0:2);
end.
var
A: array[10..19] of integer;
B: array[1..6] of real;
i: integer;
begin
// Инициализация массива A
for i := 10 to 19 do
begin
A[i] := 0; // Присваиваем начальное значение
end;
// Инициализация массива B
for i := 1 to 6 do
begin
B[i] := 0.0; // Присваиваем начальное значение
end;
// Пример обращения к элементам массива A
writeln('Элемент A[10]: ', A[10]);
writeln('Элемент A[15]: ', A[15]);
// Пример обращения к элементам массива B
writeln('Элемент B[1]: ', B[1]:0:2);
writeln('Элемент B[6]: ', B[6]:0:2);
end.