Показать сообщение отдельно
  (#2 (permalink)) Старый
Vladimir_S Vladimir_S вне форума
Member
 
Сообщений: 423
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
По умолчанию 15.02.2009, 12:36

Цитата:
Сообщение от 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;
Если в перечислении дней четверг (Thursday) пропущен умышленно, то
b = (0, 1, 2, 3, 4, 5, 15), если же четверг пропущен по ошибке, то
b = (0, 1, 2, 3, 4, 5, 6, 21).
Ответить с цитированием
Ads