Задати одновимірний масив з 50 елементів заповнений випадковими числами. Знайти суму елементів,які мають відємне значення.Написати роз'яснення

                  34,8г 5%                                         хг   

Ba(NO3)2  +  K2SO4         =    2KNO3    +   BaSO4

                   v=1моль                                   v=1моль

                   М=174г/моль                            М=233г/моль

                   m=174г                                     m=233г

найдем массу соли

m(K2SO4)=(34,8г*5%)/100%=1,74г

сост.пропорцию

1,74гхг

174г233г

х=(233г*1,74г)/174г=2,33г

вместо пропорции можно решить через моль:

v(K2SO4)=1,74г/174(г/моль)=0,01моль

v(BaSO4)=v(K2SO4)=0,01моль

m(BaSO4)=0,01моль*233(г/моль)=2,33г

ответ: 2,33г

Var s,s1,s2,smax:string;
max,k,p,i:integer;
begin
writeln('Введите предложение:');
readln(s);
s1:=s; s1[length(s1)]:=' ';
max:=0;
smax:='';
while s1<>'' do
 begin
 p:=pos(' ',s1);
 s2:=copy(s1,1,p-1);
 k:=0;
 for i:=1 to p-1 do
  if s2[i]='а' then k:=k+1;
 if k>max
  then begin max:=k; smax:=s2; end
  else if k=max then smax:=smax+','+s2;
 delete(s1,1,p);
 end;
writeln(smax);
writeln('k = ',max);
end.

Пример:
Введите предложение:
Макаронина и балаган а также команда каска и палатка.
Макаронина,балаган,палатка
k = 3