Паскаль

Даны С, m и массив T (m). Найти число элементов массива Т, меньших С, а для элементов, больших С, найти их среднее арифметическое.

Question

Информатика

Евгеня

7 апреля, 18:16

Паскаль

Даны С, m и массив T (m). Найти число элементов массива Т, меньших С, а для элементов, больших С, найти их среднее арифметическое.

+5

Ответы (1)

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

Антониныч · Answer 1

Program n1;

const m=10;

var a: array [1 ... m] of integer;

k, k1, i, sum, c: integer;

begin

readln (c) ;

sum:=0;

k:=0;

k1:=0;

for i:=1 to m do readln (a[i]) ;

for i:=1 to m do

begin

if a[i]
else

begin

sum:=sum + a[i];

k1:=k1+1;

end;

end;

writeln (k) ;

writeln (sum/k1) ;

end.

ПаскальДаны С, m и массив T (m). Найти число элементов массива Т, меньших С, а для элементов, больших С, найти их среднее арифметическое.

Паскаль

Даны С, m и массив T (m). Найти число элементов массива Т, меньших С, а для элементов, больших С, найти их среднее арифметическое.