Вы имеете в виду документы Photoshop?
Если да,то это формат PSD,открывается только с Ps.
Тебе нужен формат TIFF - это чисто для сохранения изоб-ия со слоями
Попробуй:
("А" одно из чисел последовательности, а Q кол-во нулей)
Begin
For i:=1 to n do
Read(A);
If A=0 then inc(Q);
Write(Q);
End.
Всемирная паутина, наверно
World Wide Web
Var a: array[0..10] of integer;
i, j, k: integer;
begin
for i := 0 to 10 do
begin
a[i] := random(90) - 45;
writeln('[', i, '] => ', a[i]);
end;
for i := 0 to 10 do
if (a[i] < 0) then inc(j)
else if (a[i] > 0) then inc(k);
writeln(j, ' ', k);
<span>end.
работает у меня:)</span>