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

а блок схему не напишешь еще?

const n=10;var x:array[1..n] of integer;c1,c2,m1,m2,w,i:integer;beginRandomize;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  4w = 5c1 = 74  m1 = 6c2 = 9  m2 = 4

// 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= 2039 -13 -12 41 14 -4 38 -33 28 -30 25 24 7 -20 47 42 12 6 -30 16w= 7c1=326, m1=11c2=-136, m2=8