Сместиться на (9,3) т.к после первой половины задачи он оказался в точке (-9,3).
Const n = 50;
var
a :array [1..n] of integer;
i, sum :integer;
sr :real;
begin
randomize;
for i:= 1 to n do
a[i]:= random(100);
for i:= 1 to n do
sum:= sum + a[i];
sr:= sum/n;
writeln(sr);
end.
1) найдём общее количество символов: 14 страниц * 36 строк * 64 символа = 32256 символов.
2) информационный объем = количество символов на размерность кодировки, т.е. 32256 символов * 2 байта = 64512 байт.
3) переводим байты в Кбайт = 64512 байт /1024 = 63 Кбайта
Ответ: 4) 63 Кбайта
Var a: array[0..9] of Integer;
i,k,b,c: Integer;
begin
for i:=0 to 9 do
begin
a[i]:=Random(100);
writeln(i+1,' число: ',a[i]);
end;
for i:=0 to 9 do
begin
for k:=0 to 9 do
begin
if a[i]<a[k] then
begin
b:=a[i];
c:=a[k];
a[i]:=c;
a[k]:=b;
k:=0;
end;
end;
end;
writeln('Числа по возрастанию:');
for i:=0 to 9 do
writeln(i+1,' число: ',a[i]);
begin
end;
end.