16 бит - 2 байта. 2*1240*480=1190400 байт 1190400/1024=1162,5 КБайт
32=2^5
256=2^8 количество бит на цвет уменьшилось на 3, значит в (2^3 = 8) уменьшился объем в оперативке
Почитай системные требования приложения, уверен что там не больше 1 гигабайта оперативы
<span>var
a,b:integer;
procedure Poisk(a,b:integer);
begin
if a > b then
writeln('Меньшее число ', b);
if a=b then
writeln('Равны');
if a < b then
writeln('Меньшее число ', a);
end;
begin
writeln('Введите числа');
readln(a,b);
Poisk(a,b);
end.</span>
Программа без массива:
const n=10;
var a,i,max,min:integer;
begin
Randomize;
min:=69; max:=15;
for i:=1 to n do
begin
a:=random(55)+15;
write(a,' ');
if a>max then max:=a;
if a<min then min:=a;
end;
writeln;
writeln('max-min = ',max,'-',min,' = ',max-min);
end.
Пример:
21 16 40 57 41 63 48 50 54 45
max-min = 63-16 = 47
Программа с массивом:
const n=10;
var a:array[1..n] of integer;
i,max,min:integer;
begin
Randomize;
for i:=1 to n do
begin
a[i]:=random(55)+15;
write(a[i],' ');
end;
writeln;
min:=a[1]; max:=a[1];
for i:=2 to n do
begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
writeln('max-min = ',max,'-',min,' = ',max-min);
end.