Дано n, массив А из n вещественных элементов и число K, K<0. Подсчитать в нем среднее значение для тех положительных элементов массива,величина которых меньше K.
Answers & Comments
annaaaaaaa123456789
Begin var q:=new Queue<integer>; 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 i<>4 then q.Enqueue(k) end; q.Printlnend.
0 votes Thanks 1
XXXELUS
Не могли бы вы расписать по строкам.Просто не чего не понятно
Answers & Comments