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

Question

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

---

Answer 1

Если я правильно понял, то так))
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]);<br>end.