Const
n = 10;
var
i, c: integer;
a, w: array[1..n] of integer;
begin
randomize;
writeln('Исходный массив:');
for i := 1 to n do
begin
a[i] := random(201) - 100;
write(a[i], ' ');
end;
writeln;
c := 0;
for i := 1 to n do
if a[i] > 0 then
begin
c := c + 1;
w[c] := a[i];
end;
writeln('Кол-во положительных элементов: ', c);
for i := 1 to n do
begin
if a[i] <= 0 then
begin
c := c + 1;
w[c] := a[i];
end;
end;
writeln('Результат:');
for i := 1 to c do
write(w[i], ' ');
end.
500*60*55*1=<span>
1650000байт/1024/1024=</span><span><span>1,573563Мбайт
5916/(34*58)=3 страницы
128*256*4(глубина цвета)=</span></span><span><span>131072 бит/8/1024=16 Кбайт
24*1024*8/(512*128)=3 бита глубина цвета, 2 в степени 3=8 цветов</span></span>
20 звезд.Можно легко проверить,переделав алгоритм.
var s:integer;
procedure F(n: integer);
begin
writeln('*');
if n>0 then begin
writeln('*');
s:=s+1;
F(n-2);
F(n div 2);
F(n div 2);
end;
end;
begin
f(7);
writeln(s);
end.
Var a,s,p,i:integer;
begin
s:=0; p:=1;
writeln('Введите 5 чисел:');
for i:=1 to 5 do
begin
readln(a);
s:=s+a*a;
p:=p*a*a;
end;
writeln('s = ',s,' p = ',p);
end.
Пример:
<span>Введите 5 чисел:
2
4
3
1
5
s = 55 p = 14400</span>
[512, 384, 168]
Глубина цвета = 168 Кбайт / (512 * 384 пикселей) = 168 * 8 * 1024 бит / 196608 пикселей = 1376256 бит / 196608 пикселей = 7.0 бит
Кол-во цветов = 2^7.0 бит = 128.0 цветов