Дана последовательность целых чисел, оканчивающаяся 0. вывести на экран все нечетные числа этой последовательности.

1,44 мегабайта влезет 2 книги в емкость в 700 мегабайт влезет 1 019 книг в емкость 4.7 гб влезет 7 009  книг теперь решение всего в этой книге 720 000 символов. то есть 60 символов умножаем на 40 и умножаем на 300, будет 720 000  потом 1 символ равен 8 битам, то есть 720 000 умножаем на 8 будет 5 760 000 бит. 1 байт = 8 бит(ам)  1 клбайт = 1024 байта 1 мгбайт = 1024 клбайта 1 гигабайт = 1024 мгбайта переводим 5 760 000 / 1024 = 720 00 байт  720 000 байт делим на 1024 получаем 703.125   клбайт 703.125 / 1024 =  0,6866455078125 мегабайт теперь делим 1,44 на  0,6866455078125 получаем 2.097152 (2 книги) потом 700 мб делим на  0,6866455078125 получаем 1 019 книг 1 гигабайт равняется 1024 мегабайта, 4.7 умножаем на 1024 получаем 4 812,8 мегабайт, и делим 4 812, 8 мб на  0,6866455078125 и получаем  7  009 книг.

Const n=5; var  a: array[1..n,1..n] of integer; b: array[1..n] of integer; i,j,max,min,s: integer; begin randomize; writeln('исходный массив: '); for i: =1 to n do   begin   for j: =1 to n do   begin     a[i,j]: =random(21);     write(a[i,j]: 4);   end;   writeln;   end; max: =a[1,n]; for i: =2 to n do   if a[i,n-i+1]> max then max: =a[i,n-i+1]; writeln('1. max = ',max); for i: =1 to n do   begin   min: =a[i,1];   for j: =2 to n do   if a[i,j]< min then min: =a[i,j];   b[i]: =min;   end; s: =0; writeln('2. массив b'); for i: =1 to n do    begin   write(b[i]: 4);   s: =s+b[i];   end; writeln; writeln('3. среднее = ',s/n); for i: =1 to n do    if b[i]> s/n then write(b[i]: 4); writeln; end. пример: исходный массив:   10   19   15   17   10   12   12   10   1   5   17   8   8   14   15   12   11   8   0   13     2   2   4   10   6 1. max = 11 2. массив b   10   1   8   0   2 3. среднее = 4.2   10   8