var a,i,n,min,max: integer;
begin
write('Введите кол-во чисел в последовательности: ');
readln(n);
min:=1;
max:=2;
for i:=1 to n do
begin
write('Введите ',i,' число: ');
readln(a);
if (a mod 2 = 0) then
begin
if (min=1) then min:=a
else if (a<min) then min:=a;
end
else
begin
if (max=2) then max:=a
else if (a>max) then max:=a;
end
end;
if (min<>1) then writeln('Минимальное четное: ',min);
if (max<>2) then writeln('Максимальное нечетное: ',max);
end.
6144 * 40 = 245760 символов в 40 дорожках
Объяснение:
Один килобайт равен 1024 Байта
Соответственно у вас на дискете 1024*180=184320 Байт (это наш текст)
184320 / 40= 4608 Кбайт это у нас у нас столько байт на дорожке.
4608 / 8 = 576 Кбайт это у нас у нас столько байт в секторе.
1 байт = 
бит = 8 бит
576 Кбайт = 576 * 8 бит = 4608 бит в секторе
"64-ти символьный алфавит" .. Код у нас двоичный , значит 
= 64
А это значит что каждый символ алфавита занимает 6 бит (два в ШЕСТОЙ степени, значити 6-битный символ).
Мы выяснили что любой символ занимает на дискете 6 (ШЕСТЬ) бит.
4608 / 6 = 768 символов влезет в ОДИН сектор.
768* 8 секторов = 6144 символов в 8 секторах (на одной дорожке)
6144 * 40 = 245760 символов в 40 дорожках
Или где то так, пересчитай.
___________________
2)
а) 1,44 Мбайт = 1,44 * 1024 = 1474,56 Кбайт
Значит 1474,56 Кбайт / 100 Кбайт = 14 файлов
б) 1,2 * 1024 = 1228
1228/100=12 файлов
