1) количество точек в изображении = 128*128 = 16384
2) 4Кб = 32768 бит (4*1024 = 4096 байт, т.к. 1 бит = 8 байт, 4096*8=32768)
3) 32768:16384 = 2 - это глубина цвета, число цветов в палитре =4
Var a: array[1..100] of integer;
i, k,n: integer;
begin
writeln('Введите n:');
readln(n);
writeln('Массив:');
for i := n downto 1 do
begin
a[i] := random(100);
write(a[i]:4);
end;
writeln;k:=0;
for i := 1 to n do
if a[i] mod 2 <> 0 then
begin
writeln('Номер первого нечетного = ', i);
k:=1;
break;
end;
if k=0 then
writeln('В массиве нет нечетных элементов');
readln;
end.
Нажимаем кнопку Home и прыгаем на начало строки, на слово Для.
Два раза нажимаем Ctrl + стрелка вправо и попадаем на слово По.