Var a:array[1..100] of integer;
i,n,max,min:integer;
begin
writeln('Skolko elementov');
readln(n);
for i:=1 to n do begin write('a[',i,']='); read(a[i]); end;
max:=a[1]; min:=a[1];
for i:=1 to n do if a[i]>max then max:=a[i];
for i:=1 to n do if a[i]<min then min:=a[i];
writeln('Max - Min =' ,max-min);
<span>end.</span>
Var a,b,i,min,j,sum:longint;
m:array[1..3,1..3] of longint;
begin
for i:=1 to 3 do
for j:= 1 to 3 do
read(m[i,j]);
for i:=1 to 3 do
if m[i,i]< 0 then
begin
for j:=1 to 3 do
sum:=sum+m[i,j];
writeln(i,' ',sum);
sum:=0;
end;
for i:=1 to 3 do
begin
writeln;
for j:= 1 to 3 do
write(m[i,j],' ');
end;
<span>end.</span>
65 536 - количество цветов в палитре.
65 536 =2^(16) ---> 16 бит - один пиксель
1280 * 1024 * 16 = 2^8 * 5 *2^(10) * 2^4 (бит) = 5*2^(22) (бит)=
=5*2^(19) байт = 5*2^9 Кбайт =2,5* 2^(10) Кбайт = 2,5 Мбайт
Оскільки повідомлення нам бреше, в ньому виходить 33 символи, отже потрібно всього лише 33*8, що дорівнює 264.(звісно якщо не рахувати крапку в кінці)
Вроде, 27 и 1000,
С1=3^3=27
С1=10^3=1000