При использовании палитры из 1024 цветов для хранения одной точки необходимо log(2)1024 = 10 бит (2^10 = 1024).
Память для рисунка:
512*256*10 бит = 512*256*10 / 8 байт = 512*256*10 / (8*1024) Кбайт = 160 Кбайт
Program arr;
var
a: array[1..10] of integer;
i: integer;
begin
randomize;
for i := 1 to 10 do
a[i] := Random(10);
for i := 1 to 10 step 2 do
a[i] := a[i] * 3;
for i := 2 to 10 step 2 do
a[i] := 0;
end.
import random
def numbers(s):
mas = [random.randint(1, 15) for i in range(s)]
print(mas)
print("{} елементов имеют максимальное значение".format(mas.count(max(mas))))
numbers(25)
Границы фрагмента создаются интуитивно.
Const
handsfree = true;
var
a: array[1..100] of real;
i, n: integer;
sum: real;
begin
{ввод массива}
if handsfree then
n := random(20) + 5
else begin
write('n = ');
readln(n);
end;
writeln('Данные массива:');
for i := 1 to n do
begin
if handsfree then begin
a[i] := random(100) - 50;
write(a[i], ' ');
end
else readln(a[i]);
end;
writeln();
{подсчет суммы и произведения и агригатов}
sum := 0;
for i := 1 to n do
if a[i] < 0 then {если нужен фильтр}
sum := sum + a[i];
writeln('sum = ', sum);
end.