Уровень c. введите массив с клавиатуры и найдите (за один проход) количество элементов, имеющих максимальное значение. пример: массив: 3 4 5 5 3 4 5 максимальное значение 5 количество элементов 3

Var  mas: array[1..7] of integer; k, i, max: integer; begin for i: =1 to 7 do     begin     writeln('введите число');     readln(mas[i]);       end; max: =mas[1]; k: =1; for i: =2 to 7 do     begin       if mas[i] > max            then                    begin                        max: =mas[i];                           k: =1;                   end            else                        if max=mas[i]                              then k: =k+1;     end; writeln(); writeln('максимальное значение = ', max); writeln('количество элементов = ', k); readln(); end.

1)10см=3,937дюма

dpi - точек на дюйм

3,937*1000=3937 - точек

3937*3937=15499969 точек

каждая точка кодируется 2-мя байтами 

всего  30999938 байт

1 мегабайт = 1024*1024=1048576

на картинку  29,56 мегабайта

2) 256 1 байт

200*100=20000 пикселей

1 килобайт = 1024 байта

картинка займет 20000/1024=19,5 килобайта

 

ps а вообще, каждое нужно писать отдельно

256= 2^i=2^8следовательно i=8 битов

8*80*32=20480 битов

20480*2=40960 битов=5120 байт=5 килобайт

 

^ - это я так обозначила степень

i - количество информации(обычно обозначается большой буквой)

* - умножить