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

[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
правильна
а попоже исче выложу что я нипонял

[maksimla]

написаны 3 функции массива наименьшего найти

a) function A (m: array[k..n: integer] of real): integer;
var maž: real; { Mažiausias elementas }
nr, { ir jo numeris }
i: integer;
begin
maž := m[k]; nr := k;
for i := k + 1 to n do
if maž > m[i]
then begin
maž := m[i];
nr := i
end;
A := nr
end;
b) function B (m: array[k..n: integer] of real): integer;
var maž: real; { Mažiausias elementas }
nr, { ir jo numeris }
i: integer;
begin
maž := m[n]; nr := n;
for i := n - 1 downto k do
if maž > m[i]
then begin
maž := m[i];
nr := i
end;
B := nr
end;
c) function C (m: array[k..n: integer] of real): integer;
var maž: real; { Mažiausias elementas }
nr, { ir jo numeris }
i: integer;
begin
maž := m[k]; nr := k;
for i := k + 1 to n do
if maž >= m[i]
then begin
maž := m[i];
nr := i
end;
C := nr
end;

а они эквивалентные. почему?
мой ответ
да они эквивалентные. a и b одинаковы толко разница в > i >= , а c обратнай а.
правильно?

Сообщение отредактировано: maksimla - 13.02.2008 0:43