Преобразование массивов

Нахождение количества чисел

Пример. Вычислить средний тепловой эффект (SH) экзотермических реакций (Н1, Н2,..., Н10) химико–технологического процесса.

Для того, чтобы найти средний тепловой эффект, необходимо найти суммарный тепловой эффект (SumH) и количество реакций (n) с отрицательными значениями DНi.

Program Tepl; var H:array[1..10]of real; SumH,SH:real; i,n:integer; Begin for i:=1 to 10 do readln(H[i]); SumH:=0; n:=0; for i:=1 to 10 do if H[i]<0 then begin Sum:=SumH+H[i]; n:=n+1; end; SH:=SumH/n; writeln(’SH=’,SH:10; ’ n=’,n:3); End.

Пример. Дан массив энтальпий экзо– и эндотермических реакций образования химических соединений: Н₁, Н₂,..., Н₂₀. Сформировать массив (Нр₁, Нр₂,..., Нр_к), состоящий из положительных значений энтальпий и массив, состоящий из отрицательных значений энтальпий (Но₁, Но₂,..., Но_n). Обозначим: k, n – количество положительных и отрицательных элементов в массивах Нр и Но соответственно.

Program Entalp; type mas=array[1..20]of real; var H,Hp,Ho:mas; k,n,i:integer; Begin for i:=1 to 20 do readln(H[i]); k:=0;n:=0; for i:=1 to 20 do if H[i]>0 then begin k:=k+1; Hp[k]:=H[i]; end else begin n:=n+1; Ho[n]:=H[i]; end; for i:=1 to k do writeln(Hp[i]:10,’ ’); writeln; for i:=1 to n do writeln(Ho[i]:10,’ ’); End.

Дата добавления: 2014-01-14