Самостоятельная работа по информатике 7 класс файлы и файловая структура ​

881 500 байт

Объяснение:

Дано:

K = 860 * 820 = 705 200 точек

N = 1 024 цветов

Найти:

I

1 024 = 2^i

1 024 = 2¹⁰

i = 10 бит

I = 705 200 * 10 = 7 052 000 бит = 881 500 байт ≈ 860,84 Кбайт

1 байт = 8 бит

1 Кбайт = 1 024 байт

I = K * i  

I - информационный объём изображения (размер файла, содержащего изображение)

K - количество точек (пикселей)

i - глубина цвета (число бит, используемых для записи цвета одного пикселя)

N = 2^i  

N - количество цветов в палитре

i - глубина цвета (число бит, используемых для записи цвета одного пикселя)

// PascalABC.NET

function ВерхнийТреугольник(Матрица: array[,] of integer):

   sequence of integer;

begin

 var ИндексMax := Матрица.RowCount - 1;

 for var ИндексСтроки := 0 to ИндексMax - 1 do

   for var ИндексСтолбца := ИндексСтроки + 1 to ИндексMax do

     yield Матрица[ИндексСтроки, ИндексСтолбца]

end;

begin

 var n := ReadInteger('N =');

 var СлучайнаяМатрица := MatrRandom(n, n, -99, 99);

 СлучайнаяМатрица.Println;

 var ПоложительныеЭлементы :=

      ВерхнийТреугольник(СлучайнаяМатрица)

     .Where(Значение -> Значение > 0);

 Println('Сумма положительных элементов равна',

     ПоложительныеЭлементы.Sum);

 Println('Число положительных элементов равно',

     ПоложительныеЭлементы.Count)

end.