Сколько книг можно разместить на лазерном диске емкостью 800 мб если каждая книга объемом 2011 страниц на каждой странице 60 строк по 80 символов в строке.

не указан размер одного символа. пусть будет 1 байт.

одна книга занимает: 1 байт * 80 * 60 * 2011 = 9 652 800 байтёмкость лазерного диска: 800 мбайт = 838 860 800 байтответ:   книги, то есть полностью 86 книг.

1. Max - это системная функция/ Не стоит называть таким именем свою.

2. Последнее условие в процедуре не совсем понятно. И для нахождения максимального значения оптимальнее это делать в одном цикле. В PascalABC так вообще можно написать     m:=a.max; и ВСЁ.  Но если хотите как на Pascal -  Я исправил.

3. Функция ищет максимальное значение в массиве.

Pascal

var

maxa:integer;

 procedure Getmax(c:integer; var m:integer);

 var

   i:integer;

   a: array [1..100] of integer;

 begin

for i:=1 to c do begin

     a[i]:= random (20);

     write(a[i],' ');

     if m<a[i] then

       m:=a[i];

   end;  

   writeln;

 end;

begin  

 Getmax(100,maxa);

 writeln('Max=', maxa);

end.

#include < iostream> #include < vector> int main() {     int b[5][6];     std: : vector< int> vec;     for(int i = 0; i < 5; ++i)         for(int j = 0; j < 6; ++j)             std: : cin > > b[i][j];     for(int i = 0; i < 5; ++i)     {         int max = b[i][0];         for(int j = 1; j < 6; ++j)             if (max < b[i][j])                 max = b[i][j];         vec.push_back(max);     }     int min = vec[0];     int number = 0;     for(int i = 1; i < 5; ++i)            if (min > vec[i])         {             min = vec[i];             number = i;         }     std: : cout < < number; }