Var
a:array[1..15] of integer;
max,i:integer;
begin
for i:=1 to 15 do
begin
readln(a[i]);
if a[i]>max then max:=a[i];
end;
writeln(max);
end.
1. k=2; a=2;
2. 2<5 - да => a=2*2=4; k=2+2=4;
3. 4<5 - да => a=4*4=16; k=4+2=6;
4. 6<5 - нет
Ответ: 6
65536 цветов = 2 байта на точку
1024 х 768 =786432 точки
786432 х 2 = 1572864 байта = 1536 килобайта = 1,5 мегабайта
(I - объем информации, K - кол-во пикселей, i - вес одного пикселя / глубина цвета)
Дано:
K = 800 * 600 = 480000 пикселей
i = 16 бит
I - ?
Решение:
I = K * i = 480000 * 16 = 7680000 бит
7680000.0 бит = 960000.0 байт = 937.5 Кбайт