Первое видео? Похоже программа ломаная, качай вегас, он надежнее
Пусть х - глубина цвета.Тогда кол-во цветов в палтре ровно k=2^x
k=2^4,24
=16,96
const n=10;
var a:array[1..n] of integer;
i,r: integer;
begin
write (' Исходный массив: ');
for i:=1 to n do
begin
a[i]:=random(41)-20;
write (a[i]:3,' ')
end;
writeln;
write ('Введите число: ');
readln (r);
write ('Преобразованый массив: ');
for i:=1 to n do
begin
if abs(a[i]) <= r then a[i]:=a[i]*a[i];
write (a[i]:3,' ')
end
end.
1)кассета
2)может папирус
3)дискета
4)флеш
5)винчестер