Help! Запишите ** языке Паскаль программу, которая по номеру дня недели будет выводить...

Question

Help! Запишите на языке Паскаль программу, которая по номеру дня недели будет выводить его название, но необходимо использовать массив, нельзя использовать конструкцию ветвления ( if и т.п.)В информатике не разбираюсь, поэтому жду код программы.

Comments

а оператор выбора разрешён? case of который

Answer 1

Ответ:

Const Days : Array [1..7] Of string =  

('Понедельник','Вторник','Среда','Четверг','Пятница','Суббота','Воскресенье');

var n: integer;

begin

write('Введите номер дня недели: ');

readln(n);

writeln(days[n]);

end.