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

Question

Амата

15 мая, 04:01

+1

Ответы (1)

Знаете ответ?

Галюся · 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.