Дано n, массив А из n вещественных элементов и число K, K<0. Подсчитать в нем среднее значение для тех положительных элементов массива, величина которых меньше K.

Question

Информатика

Ева

24 марта, 22:58

Дано n, массив А из n вещественных элементов и число K, K<0. Подсчитать в нем среднее значение для тех положительных элементов массива, величина которых меньше K.

+2

Ответы (1)

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

Милен · Answer 1

Begin var q:=new Queue; var n:=ReadInteger ('Кол-во элементов (не менее 4) : ') ; Randomize; var k:integer; for var i:=1 to n do begin k:=Random (-20,40) ; Print (k) ; q. Enqueue (k) end; Writeln; / / очередь заполнена, выведены ее элементы var (ko, s) : = (-100,0) ; for var i:=1 to n do begin k:=q. Dequeue; q. Enqueue (k) ; if k. IsOdd then ko:=k; if i=3 then s:=k end; s+=ko; q. Enqueue (s) ; q. Println; / / искомая сумма помещена в очередь for var i:=1 to n do begin k:=q. Dequeue; if i4 then q. Enqueue (k) end; q. Printlnend.