var
i, e: Integer;
s : Real;
LL : array [0..11] of Real;
LL2 : array of Real;
begin
for i:= 0 to 11 do
LL[i] := Random(101) - 100;
i := 0;
e := 0;
while i <= 11 do
begin
if LL[i] <> 0 then
begin
inc(e);
SetLength(LL2, e);
LL2[e-1] := LL[i];
s := s + LL[i];
end;
inc(i);
end;
Writeln('Кол-во ненулевых элементов = ', e);
if s < 0 then s := s * -1;
Writeln('Mодуль сумы элементов нового массива = ', s:0:3, #10#13);
for i := 0 to e - 1 do
Write(LL2[i]:0:1, ' ');
ReadLn;
end.
Program enot;
const m=15;
var a: array[1..m] of integer;
i, j, k: integer;
begin
for i := 1 to m do
a[i] := random(21)+10;
for i := 1 to m-1 do
for j := 1 to m-i do
if a[j] < a[j+1] then begin
k := a[j];
a[j] := a[j+1];
a[j+1] := k
end;
write ('Отсортированный массив: ');
for i := 1 to m do
write (a[i]:4);
<span>end.</span>
Информацыоное общество,алгаритм и его формальное исполнение
1) переносим запятую на три знака вправо: 12.89
на три знака влево (степень -3) 0.0019854
на пять знаков вправо (степень +5) 3250120
2)1998.012=1998.012*10^0=19980.12*10^(-1)=199801.2*10^(-2)=1998012*10^(-3)=199.8012^10^(-1)
3) 652.1324=6.521324*10^(-2)
0.0005987=5.987*10^(-4)
528439=5.28439*10^(5)