Инфа я не шарю в этой теме. фото прилагается. на завтра.

8. Информационный вес одной точки (бит) = объем файла(бит)/кол-во пикселей= (1*1024*1024*8)/(1024*512) = 16 бит

9. Количество пикселей на см: 600/2,54  = 236,22 (в 1 дюйме - 2.54 см)
Количество пикселей по высоте: 10*236,22= 2362  
(и столько же получится по ширине)
Объем файла = общее кол-во пикселей*глубину цвета = 2362*2362*32= 178529408 бит = 22316176 байт = 21793 Кб= 21,28 Мб

10. Аналогично предыдущей задаче:
750/2.54= 295,27
32*295,27= 9448
9448*9448*64= 5712941056 бит= 714117632 байт= 697380,5 Кб = 681Мб

11. Вопрос не до конца сформулирован, видимо необходимо найти время передачи данных.

Тогда: время за которое передастся файл=объем файла (бит)/скорость передачи данных(бит/сек.) = (10*1024*1024*8)/2500000= 33,55 сек.

Const N = 10;

begin
  var a: array[1..N] of real;
  var i: integer;
  var growing: boolean;
 
  for i := 1 to N do begin
    readln(a[i]);
  end;
 
  growing := true;
 
  for i := 2 to N do begin
    if a[i] <= a[i - 1] then begin
      growing := false;
      break;
    end;
  end;
 
  writeln(growing);
end.

const m = 5;
const n = 4;
const limit = 100;

begin
  var matrix: array[1..m] of array[1..n] of real;
  var matrixb: array[1..m - 1] of array[1..n - 1] of real;
  var row, col, rb, cb, lowest_row, lowest_col: integer;
  var lowest: real;
  var p: boolean;
 
  lowest := limit;
 
  for row := 1 to m do begin
    for col := 1 to n do begin
      matrix[row][col] := random(limit - 1);
      if matrix[row][col] < lowest then begin
        lowest := matrix[row][col];
        lowest_col := col;
        lowest_row := row;
      end;
      write(matrix[row][col], ' ');
    end;
    writeln('');
  end;
 
  writeln('');
  writeln(lowest);
  writeln('');
 
  rb := 1;
 
  for row := 1 to m do begin
    p := false;
    cb := 1;
    for col := 1 to n do begin
      if (not (col = lowest_col)) and (not (row = lowest_row)) then begin
        p := true;
        matrixb[rb][cb] := matrix[row][col];
        cb := cb + 1;
      end;
    end;
    if p then begin
      rb := rb + 1;
    end;
  end;
 
  for rb := 1 to m - 1 do begin
    for cb := 1 to n - 1 do begin
      write(matrixb[rb][cb], ' ');
    end;
    writeln('');
  end;
 
end.