Паскаль. очень простая игра

[Len4i]{]

помогите составить простенькую игру. смысл в том, чтоб на экран выдавлись несколько чисел, которые нужно запомнить и ввести в обратном порядке.

[romec1]

а в чем собственно проблема?
думаю че-то типо алгоритма будет выглядить так:
создаем массив целых чисел, например рандомом, потом последовательность введенных чисел человеком сравниваем с массивом выведенным наоборот, там в паскале, на сколько я еще помню..=) есть downto=)

[Len4i]{]

ну да, я тоже думаю, что примерно так делается, но нормально записать не получается :-( у меня вообще с паскалем проблема

проблема в том, что я не понимаю как сравнит, то есть как это записать

[Roof]

Самый простой вариант, который я вижу. Для тестирования закомментируй строку clrscr; после delay(5000);
Спрашивай, если что непонятно. Попробую пояснить.

program my_game;
uses crt;
const
  count = 5; //количество чисел
var
  a: array [1..count] of integer;  // массив исходный
  i, count_err, check: integer; //счетчик, счетчик ошибок, введенное пользователем число
begin
  clrscr; //очищаем экран
  randomize;//Устанавливаем генератор псевдослучайного числа на следующее значение
  
  //заполняем исходный массив псевдослучайными числами и выводим на экран.
  for i := 1 to count do begin
    a[i] := random(201)-100;
    write(a[i]:4);
  end;
  
  writeln;
  writeln('Запоминайте, у целых Вас 5 секунд');
  delay(5000); //ждем 5 секунд
  clrscr;//тут очищаем экран от предыдущих выводов. Чтобы убрать от пользователя наш массив.
  writeln('А теперь введите в обратном порядке');
  
  count_err := 0;//сейчас ошибок 0
  //сравниваем в цикле введенные пользователем числа и элементы массива
  for i := count downto 1 do begin
    readln(check);
    if a[i] <>  check then //если нашли несоответствие
    Inc(count_err);  //значит увеличиваем счетчик ошибок
  end;
  
  //выводим количество ошибок
  writeln('Ошибок ', count_err);
  
  //Выводим исходный массив
  writeln('Исходный массив: ');
  for i := 1 to count do
    write(a[i]:4);

  writeln;
  case count_err of //в случае количества ошибок:
    0: writeln ('Вы очень внимательный и злопамятный! :)'); //выводим соответствующие сообщения :)
    1: writeln ('У Вас отличные внимание и память!');
    2: writeln ('У Вас неплохие внимание и память!');
    3: writeln ('Учитесь сосредотачиваться.');
    4: writeln ('Вы очень невнимательны!');
    5: writeln ('У вас нет внимания и полное отстутствие памяти.');
  end;
  
  readln;
end.

[Len4i]{]

а вот посмотри пожалуйста, я что то сделала, может под неё сможешь переделать?

это наверное будет примерно вот так, только ошибку выдает. я уже совсем запуталась. :-( помоги

[Roof]

я совсем не понял, что ты сделала. переделать твою программу не смогу.
1 )Чем моя не устраивает?
2) Тебе нужно чтобы с меню было или что?
Напиши подробней, может быть что-нибудь придумаем.

[Len4i]{]

мне просто нужно вписать этот код в мою программу, а я вписываю и он не работает
нужно, чтоб цифры вводились в графическом режиме, т.е. с какой то заданной координаты.