Question

дан массив из 20 вещественных чисел заполненный случайным образом.Вывести на печать те эементы , которые меньше 0.5

Answer 1

var i: byte;
    a: array [0..19] of real;
begin
     for i := 0 to 19 do
     begin
          a[i] := random(100) / 50;
          writeln('[', i, '] => ', a[i]);
     end;
     writeln('-----------------');
     for i := 0 to 19 do
         if (a[i] < 0.5) then writeln('[', i, '] => ', a[i]);
end.

=)