Погогите пжсрочноооо

Погогите пжсрочноооо...

Погогите пжсрочноооо
Чтобы отвечать на вопросы, необходимо зарегистрироваться или авторизоваться.
Мегамозг
11 Января
Если я правильно понял, то так))
const N=10;
var a: array [0..N] of real;
    i: integer;
begin
     for i := 0 to N do
         a[i] := random(90);
     for i := 0 to N do
         if (a[i] <= i) then writeln(a[i]);
end.
...