Написать программу посчитывающую в массиве сумму элементов меньших 0, их количество и средее значение

Question

Ньюти

Информатика

18 апреля, 13:40

Написать программу посчитывающую в массиве сумму элементов меньших 0, их количество и средее значение

+2

Ответы (1)

Знаешь ответ на этот вопрос?

Эмилия Федорова · Answer 1

uses Crt; const n=15; type Vec=array [1 ... n] of integer; var i, SumOtr, ColOtr: integer; A: Vec; begin ClrScr; Randomize; SumOtr:=0; ColOtr:=0; WriteLn (' Massiv A: '); for i:=1 to n do begin A[i]:=-10+random (20); if A[i]<0 then begin SumOtr:=SumOtr+A[i]; ColOtr:=ColOtr+1; end; Write (A[i]:4); end; WriteLn; WriteLn ('ColOtr = ', ColOtr); WriteLn ('SumOtr = ', SumOtr); WriteLn ('SredOtr = ', SumOtr/ColOtr:4:2); ReadLn; end.