сканируется цветное изображение размером 10×15 см. разрешающая сканера 600 ×600 dpi, глубина цвета - 3 байта. какой информационный объем будет иметь полученный графический файл? ​

function MaxElem(a: array[,] of integer; i: integer): integer;

var

 j, m: integer;

begin

 m := a[i, 0];

 for j := 1 to length(a, 1) - 1 do

   if a[i, j] > m then

     m := a[i, j];

 MaxElem := m

end;

procedure Input(var a: array[,] of integer);

var

 i, j: integer;

begin

 Writeln('вводите элементы массива');

 for i := 0 to length(a, 0) - 1 do

   for j := 0 to length(a, 1) - 1 do

     read(a[i, j]);

end;

procedure Output(var a: array of integer);

var

 i: integer;

begin

 Writeln('полученный массив');

 for i := 0 to length(a) - 1 do

   write(a[i], ' ');

end;

var

 m, n, i: integer;

 a: array[,] of integer;

 b: array of integer;

begin

 read(m, n); // ввод числа строк и столбцов

 setlength(a, m, n);

 setlength(b, m);

 Input(a);

 for i := 0 to m - 1 do

   b[i] := MaxElem(a, i);

 Output(b);

end.

Написано на Free Pascal

Исходник ниже.

Объяснение:

#include <iostream>

#include <cmath>

using namespace std;

int main(){

   //"\t" - табуляция

   //fixed - для вывода фиксированного количества знаков после запятой у вещественного числа

   cout << "x\t\ty\t\ta\t\tb\t\tz" << endl;

   double x = 0.5;

   while(x <= 1.9){

       double y = 0.1;

       while(y <= 0.2){

           double a = cos(x*x*x - sqrt(y));

           double b = pow(x * y * y, 1.0 / 3);

           double z;

           if (a > b){

               z = a;

           }

           else{

               z = b;

           }

           cout << fixed << x << "\t" << y << "\t" << a << "\t" << b << "\t" << z << endl;

           y += 0.05;

       }

       x += 1.1;

   }

   return 0;

}