Помоему так...
const n=10;
var a:array[1..n] of integer; i,k:integer;
begin
writeln('Исходный массив: ');
for i:=1 to n do begin
a[i]:=random(10);
write(' ',a[i]);
end;
writeln;
for i:=1 to n do begin
if ((i mod 2) = 0) then
a[i]:=a[i]*2
else
a[i]:=a[i]*3;
end;
writeln('Конечный массив: ');
for i:=1 to n do
write(' ',a[i]);
<span>end.</span>
1024×512=524288 бит
Переведем размер файла в биты
1.5×1024×1024×8 =12582912 бит
Разделим размер файла картинки на размер картинки в пикселах
12582912/524288 = 24 бит
Глубина цвета 24 бита
А количество цветов 2 в 24 степени т.е 16777216 цветов
513(10)=201 в шестнадцатиричной сс