Я в школе, в основном, такую прогу писал регулярно:
Uses Crt;
Const Names : Array[1..4] of string = ('Вася','Петя','Миша','Женя');
Var N : integer;
Begin
ClrScr;
HighVideo;
Randomize;
N:=Random(4)+1;
ReadKey;
WriteLn('За пивом пойдет ',Names[N]);
ReadKey;
End.
Как "костыль" в ряде случаев за экраном (далеко вправо) после "N:=Random(4)+1;" писалось "N:=1" (например), и Вася тогда гарантированно шел за пивом
Правда, ближе к окончанию школы "Васи" пошли прошаренные и перед запуском проверяли программу
Это сообщение отредактировал RustyKZ - 8.09.2015 - 14:31