Program main;
Var A, B: array [1..100] of integer;
k, n, i: byte;
Begin
i:=1;
Readln (n);
For k:=1 to n do
Readln(A[k]);
For k:=1 to n do
If A[k]<0 then
Begin
B[i]:=A[k];
i:=i+1;
End;
For k:=1 to n do
If A[k]=0 then
Begin
B[i]:=A[k];
i:=i+1;
End;
For k:=1 to n do
If A[k]>0 then
Begin
B[i]:=A[k];
i:=i+1;
End;
For i:=1 to n do
Writeln (B[i]);
Readln;
End.
Смесь на вектор 1.0
опустить перо
сместиться на вектор 0.2
<span>Найдём информационный объём данной статьи: I = 32 * 32 * 25 * 8 = 2^5 * 2^5 * 25 * 2^3 = 2^(5 + 5 + 3) * 25 = 2^13 * 25 бит. Переведём полученное значение в более крупные единицы измерения информации — килобайты. 2^13 * 25 бит = (2^13 * 25) / (8 * 1024) кбайт = (2^13 * 25) / (2^3 * 2^10) кбайт = (2^13 * 25) / 2^13 кбайт = 25 кбайт. Ответ: I = 25 кбайт.</span>
Program z3; Var y: array [1..15] of real; g: array [1..20] of real; i,d: integer; sum, sum_2: real;Begin writeln('Введите оплату труда за день'); read(d); for i := 1 to 15 do y[i] := random (30) * d * 0.8; for i:=1 to 20 do g[i] := random (30) * d * 0.8; for i:=1 to 15 do begin writeln('Сотрудник y_',i,' - ',y[i]); sum:= sum + y[i]; end; writeln; writeln('Сумма отдела y - ', sum); writeln; for i:=1 to 20 do begin writeln('Сотрудник g_',i,' - ',g[i]); sum_2:= sum_2 + g[i]; end; writeln; writeln('Сумма отдела g - ', sum_2); writeln; End.