Определить значение массива

[Bleak]

Определить значение массива

Помогите решить пару задач, пожалуйста.
1)Определить значение массива b после выполнения каждого из следующих фрагментов:
Type
week=(Monday, Tuesday, Wednesday, Friday, Saturday, Sunday, Sum);
Var
b :array [week] of integer;
Day : week;
c) b[Sum]:=0;
for day:= Monday to Sunday do
begin
b[day]:=ord(day);
b[Sum]:=b[Sum]+b[day]
end;
2) Составить программу вычисления корня квадратного уравнения методом половинного деления.
Заранее большое спасибо!!!

 

[Vladimir_S]

Помогите решить пару задач, пожалуйста.
1)Определить значение массива b после выполнения каждого из следующих фрагментов:
Type
week=(Monday, Tuesday, Wednesday, Friday, Saturday, Sunday, Sum);
Var
b :array [week] of integer;
Day : week;
c) b[Sum]:=0;
for day:= Monday to Sunday do
begin
b[day]:=ord(day);
b[Sum]:=b[Sum]+b[day]
end;

Если в перечислении дней четверг (Thursday) пропущен умышленно, то
b = (0, 1, 2, 3, 4, 5, 15), если же четверг пропущен по ошибке, то
b = (0, 1, 2, 3, 4, 5, 6, 21).

 

[Bleak]

Спасибо!!!