массивы, памогите понять массивы Опции

[maksimla]

можете малинькие программки написать чтобы понять массивы?
а вот и массив

type masyvas = array [1..5] of integer;
var mas: masyvas;
i, k: integer;

мне надо узнать чему будет равняется mas[4] выполнив такое

a) for i := 1 to 5 do
mas[i] := i;
b) k := 15;
for i := 1 to 5 do
mas[i] := k + i;
c) for i := 5 downto 1 do
mas[i] := i;
d) k := 1;
for i := 10 to 14 do
begin
mas[k] := i;
k := k + 1
end;

а мои ответы вот
a)4
b)19
c)2
d)6
правильна
а попоже исче выложу что я нипонял

[volvo]

и ответ должен быть 2

Нет, не 2. Ты распечатываешь элементы не с 1-го к 5-му, а от 5-го к первому. Распечатай индекс:

for i := 5 downto 1 do
begin
mas[i] := i;
writeln('mas[', i, '] = ', mas[i]);
end;

, и ты поймешь о чем я...

Добавлено через 1 мин.
То же самое и дальше. Ты с какой стати печатаешь К, если спрашивал, какое значение будет иметь mas[4]?