1 0 0 0
- 1 1
----------
1 0 1
1 0 0 1 1
+ 1 0 1 1
---------------
1 1 1 1 0
1 0 1
x 1 0 1
-----------------
1 0 1
+ 1 0 1
----------------
1 1 0 0 1
1,5 Мб=1,5*1024*1024 байт
Необходимая память для 1 пикселя (глубина цвета):
1,5*1024*1024/(1024*512) = 3 байта = 3*8 бит = 24 бита
Максимальное количество цветов = 2^24 = 16 777 216
Мне кажется б) потому что им надо узнать ответ. Задавая вопросы
Если одномерный массив, то:
program min;
var a:array[1..10] of integer;
i,min,k:integer;
begin
writeln('Введите элементы массива');
for i:=1 to 10 do
readln(a[i]);
min:=a{1];
for i:=1 to 10 do
if a{i]<min
then min:=a{i};
for i:=1 to 10 do
if a{i]=min
then k:=k+1;
writeln('Всего элементов с минимальным значением =',k);
end.
var x,a,b,c,d,e,s: integer;
begin
writeln ('Введите целое 5-значное число');
readln (x);
a:=x div 10000;
b:=x div 1000 mod 10;
c:=x div 100 mod 10;
d:=x div 10 mod 10;
e:=x mod 10;
s:=a+b+c+d+e;
writeln ('s=', s);
end.