Question

Сформируйте массив,содержащий 18 случайных вещественных чисел, принадлежащих промежутку (квадратная скобка)|-3;2) и подсчитывает сумму положительных чисел. Выводит в столбик с двойными десятичными значениями.

Answer 1

var a:real;
    i:byte;

begin
  randomize;
  for i:=1 to 18 do begin
    a:=random()*random(-3,2);
    writeln(a:2:2)
  end;
end.