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

Question

Ионка

17 сентября, 03:08

+3

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