Ответы и объяснения

2013-10-17T10:36:28+04:00
Если я правильно понял, то так))
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.