Dog-Cat нельзя брать потому что в имени програм не допускаются служебные символы и команды(умножение, деление, вычитание...)
1-б,2-в,3-г,4-б,5-а,6-б,7-а,8-б,9-а,10-г,11-а,12-в,13-в,14-б.
1)
var mas:array[1..7] of integer;
i:integer;
begin
writeln('Введите 7 целых чисел:');
for i:=1 to 7 do
begin
readln(mas[i]);
if(mas[i] mod 2 <>0) then mas[i]:=mas[i]*10;
end;
writeln('Изменённый массив:',mas);
end.
2) var mas:array[1..9] of integer;
i,b:integer;
begin
writeln('Введите 9 целых чисел:');
for i:=1 to 9 do
begin
readln(mas[i]);
if(mas[i] <0) then b:=b+mas[i];
end;
writeln('Сумма отрицательных элементов= :',b);
end.
3) var mas:array[1..4] of integer;
i,b:integer;
begin
writeln('Введите 4 целые числа:');
b:=1;
for i:=1 to 4 do
begin
readln(mas[i]);
b:=b*mas[i];
end;
writeln('Произведение чисел= ',b);
end.
K=64*128=8192 пикселей всего
I=8 КБайт=65536 бит
По формуле I=K*i следует
что i= 65536/8192=8 бит
По формуле N=2^i
следует что N=2^8=256
Ответ: 256 Цветов в палитре изображения