Массивы - Помощь студентам

Ya_Aston · 03.12.2010, 19:41

Дано описание: type месяц (янв, фев, мар, апр, май, июн, июл, авг, сен, окт, ноя, дек); var m,ml:месяц; k:maxint; n:1...12; присвоить переменной ml название n-го месяца года

Жесткая задача... часа 2 с ней уже мучаюсь. Прошу помощи

GetMax · 03.12.2010, 20:11

Код:

Const
   Month:array[1..12] of string = ('янв','фев','мар','апр','май','июн','  июл','авг','сен','окт','нояб','дек');
Var
  Ml:String;
  N:1..12;
Begin
   Readln(N);
   Ml:=Month[n];
   Write(Ml);
   Readln
End.

Ya_Aston · 03.12.2010, 20:33

Спасибо вам большое!

03.12.2010, 19:41	#1
Ya_Aston Пользователь Регистрация: 03.12.2010 Сообщений: 15	Массивы Дано описание: type месяц (янв, фев, мар, апр, май, июн, июл, авг, сен, окт, ноя, дек); var m,ml:месяц; k:maxint; n:1...12; присвоить переменной ml название n-го месяца года Жесткая задача... часа 2 с ней уже мучаюсь. Прошу помощи

03.12.2010, 20:11	#2
GetMax Форумчанин Регистрация: 21.10.2010 Сообщений: 588	Код: `Const Month:array[1..12] of string = ('янв','фев','мар','апр','май','июн',' июл','авг','сен','окт','нояб','дек'); Var Ml:String; N:1..12; Begin Readln(N); Ml:=Month[n]; Write(Ml); Readln End.` Пользователь не знает, чего он хочет, пока не увидит то, что он получил. Для благодарностей WMR R145235935681 Последний раз редактировалось GetMax; 03.12.2010 в 20:13.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Динамические массивы и массивы варианты	N@stya	Помощь студентам	0	11.06.2010 21:09
С++, Массивы, динамические массивы.	-Sunshine-	Помощь студентам	1	19.04.2010 02:17
массивы в си	aurora_87	Общие вопросы C/C++	1	02.04.2010 15:29
Даны одномерные массивы А и В. Сформировать массивы, состоящие из элемент	LyaLya	Помощь студентам	15	20.12.2009 14:12
массивы С++	bnv	Общие вопросы C/C++	6	11.02.2009 17:34

03.12.2010, 20:33	#3
Ya_Aston Пользователь Регистрация: 03.12.2010 Сообщений: 15	Спасибо вам большое!