задачи по паскалю!!!!

[Alex_FF]

Сообщение от Сухарь

Товарищи, мне нужна ваша помощь!
Задача такова: Дан массив с генератором случайных чисел от 1 до 23, нужно вести число и найти 3 числа больше веденного...
Помогите, прошу Вас!

генератор прям на массиве установлен? какая у него мощность?

[Сухарь]

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

[Alex_FF]

program Project1;

var
  X: Array[1..23] of Integer;
  I, R, K: Integer;
begin
  Randomize;
  for I := 1 to 23 do
  begin
    X[I] := Random(100);
    Write(X[I], ' ');
  end;
  WriteLn;
  WriteLn;
  WriteLn('Введите число');
  ReadLn(R);
  WriteLn;
  WriteLn('Результат:');
  K := 0;
  for I := 1 to 23 do
    if X[I] > R then
    begin
      WriteLn(X[I]);
      Inc(K);
      if K = 3 then Break;
    end;
  if K = 0 then WriteLn('Нет таких чисел');
  ReadLn;
end.

[Сухарь]

Спасибо, спас мою шкуру...
Благодарю....