Question

При заданных элементах х1,, найти по отдельности суммы с1,с2 и количества м1,м2 элементов, значение которых соответственно больше w и меньше w. составить программу

Answer 1

Const n=10;
var x:array[1..n] of integer;
c1,c2,m1,m2,w,i:integer;
begin
Randomize;
for i:=1 to n do begin
 x[i]:=random(21);
 write(x[i]:3);
 end;
writeln;
write('w = ');
readln(w);
c1:=0; m1:=0;
c2:=0; m2:=0;
for i:=1 to n do
 begin
 if x[i]>w then begin c1:=c1+x[i]; m1:=m1+1; end;
 if x[i]<w then begin c2:=c2+x[i]; m2:=m2+1; end;
 end;
writeln('c1 = ',c1,'  m1 = ',m1);
writeln('c2 = ',c2,'  m2 = ',m2);
end.

Пример:
  3 19 17  9  1 13  1 10  6  4
w = 5
c1 = 74  m1 = 6
c2 = 9  m2 = 4

Answer 2

// PascalABC.NET 3.2, сборка 1362 от 14.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var x:=ArrRandom(ReadInteger('n='),-50,50); x.Println;
  var w:=ReadInteger('w=');
  var p:=x.Where(q->q>w);
  var c1:=p.Sum; var m1:=p.Count;
  p:=x.Where(q->q<w);
  var c2:=p.Sum; var m2:=p.Count;
  Writeln('c1=',c1,', m1=',m1);
  Writeln('c2=',c2,', m2=',m2)
end.

Пример
n= 20
39 -13 -12 41 14 -4 38 -33 28 -30 25 24 7 -20 47 42 12 6 -30 16
w= 7
c1=326, m1=11
c2=-136, m2=8