Программа в паскаль которая выбирает рандомно одну из надписей.

Предыдущий
вопрос Следующий
вопрос

Пример программы на языке Pascal, которая выбирает случайным образом одну из надписей:

program RandomMessage;
var
message: array[1..3] of string;
randomIndex: integer;
begin
message[1] := 'Hello, World!';
message[2] := 'Goodbye, World!';
message[3] := 'Welcome to Pascal!';
randomize;
randomIndex := random(3) + 1;
writeln(message[randomIndex]);
end.

Эта программа определяет массив строк message, содержащий три различные надписи. Затем она использует функцию randomize для инициализации генератора случайных чисел и функцию random для выбора случайного индекса в массиве message. Наконец, программа выводит выбранное случайным образом сообщение на экран.