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

Question

Ионка

10 февраля, 02:32

+4

Ответы (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.