Январь февраль март апрель май июнь июль август сентябрь октябрь ноябрь декабрь
13*4+(13*2+3*2)*2)+3*4=140 метров *=умножение
Var
a:array [1..10] of integer;
i,j,k,b:integer;
begin
randomize;
writeln('Массив:');
for i:=1 to 10 do
begin
a[i]:=random(99);
write(a[i],' ');
end;
writeln;
for i:=1 to 10 do
begin
k:=i;
for j:=(1+i-1) to 10 do
begin
if (a[j]>a[k])and((i mod 2)<>0) then k:=j;
if (a[j]<a[k])and((i mod 2)=0) then k:=j;
end;
b:=a[k];
a[k]:=a[i];
a[i]:=b;
end;
writeln('Массив после престанвоок:');
for i:=1 to 10 do
write(a[i],' ');
writeln;
end.
1 мегабайт это 8 мегабит
файл весит 12 * 20 = 240 мегабит
переводим в мегабайты
240/8 = 30 мегабайт